Bonjour à tous,
J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas
à faire un copier coller image seul ... et donc (i) supprimer le lien vers le
fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le
Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb
(je suis sous Excel XP 2003) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonjour Pour exporter un graph en image:
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?
Sub GraphJPG()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG"
End Sub
Daniel
--
FAQ MPFE
Daniel
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Alex7r" <Alex7r@discussions.microsoft.com> a écrit dans le message de news:
59FC1A7B-8105-4E94-8D0B-3C5EBF3131FD@microsoft.com...
Bonjour à tous,
J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive
pas
à faire un copier coller image seul ... et donc (i) supprimer le lien vers
le
fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul
le
Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb
(je suis sous Excel XP 2003) ?
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la 2ème partie : comment faire pour sélectionner ce .jpg avant de le coller dans Word ? Merci bcp par avance
Bonjour Pour exporter un graph en image:
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la
2ème partie : comment faire pour sélectionner ce .jpg avant de le coller dans
Word ?
Merci bcp par avance
Bonjour
Pour exporter un graph en image:
Sub GraphJPG()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG"
End Sub
Daniel
--
FAQ MPFE
Daniel
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Alex7r" <Alex7r@discussions.microsoft.com> a écrit dans le message de news:
59FC1A7B-8105-4E94-8D0B-3C5EBF3131FD@microsoft.com...
Bonjour à tous,
J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive
pas
à faire un copier coller image seul ... et donc (i) supprimer le lien vers
le
fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul
le
Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb
(je suis sous Excel XP 2003) ?
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la 2ème partie : comment faire pour sélectionner ce .jpg avant de le coller dans Word ? Merci bcp par avance
Bonjour Pour exporter un graph en image:
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?
Un truc comme çà: Sub CopieChartWord() ActiveSheet.ChartObjects(1).Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Dim AppWord As Object
Set AppWord = CreateObject("Word.Application")
With AppWord .Visible = True .documents.Open Filename:="C:AJETERtest.doc" ' a modifier .Selection.Paste End With
End Sub
Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la 2ème partie : comment faire pour sélectionner ce .jpg avant de le coller dans Word ? Merci bcp par avance
Bonjour Pour exporter un graph en image:
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?
Un truc comme çà:
Sub CopieChartWord()
ActiveSheet.ChartObjects(1).Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Dim AppWord As Object
Set AppWord = CreateObject("Word.Application")
With AppWord
.Visible = True
.documents.Open Filename:="C:AJETERtest.doc" ' a modifier
.Selection.Paste
End With
End Sub
Daniel
--
FAQ MPFE
Daniel
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Alex7r" <Alex7r@discussions.microsoft.com> a écrit dans le message de news:
C61D3EBE-0C62-4F91-93AA-B85580601491@microsoft.com...
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la
2ème partie : comment faire pour sélectionner ce .jpg avant de le coller
dans
Word ?
Merci bcp par avance
Bonjour
Pour exporter un graph en image:
Sub GraphJPG()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG"
End Sub
Daniel
--
FAQ MPFE
Daniel
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"Alex7r" <Alex7r@discussions.microsoft.com> a écrit dans le message de
news:
59FC1A7B-8105-4E94-8D0B-3C5EBF3131FD@microsoft.com...
Bonjour à tous,
J'ai un problème pour exporter un graphique Excel dans Word, je
n'arrive
pas
à faire un copier coller image seul ... et donc (i) supprimer le lien
vers
le
fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue.
Seul
le
Paste, tout court, est accepté par Excel. Auriez vous une solution à ce
pb
(je suis sous Excel XP 2003) ?
Un truc comme çà: Sub CopieChartWord() ActiveSheet.ChartObjects(1).Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Dim AppWord As Object
Set AppWord = CreateObject("Word.Application")
With AppWord .Visible = True .documents.Open Filename:="C:AJETERtest.doc" ' a modifier .Selection.Paste End With
End Sub
Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Merci bcp ! J'ai pu exporter le graphique en .jpg, mais je bloque pour la 2ème partie : comment faire pour sélectionner ce .jpg avant de le coller dans Word ? Merci bcp par avance
Bonjour Pour exporter un graph en image:
Sub GraphJPG() Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:ajetergraph1.jpg", filtername:="JPG" End Sub Daniel
-- FAQ MPFE Daniel http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"Alex7r" a écrit dans le message de news:
Bonjour à tous, J'ai un problème pour exporter un graphique Excel dans Word, je n'arrive pas à faire un copier coller image seul ... et donc (i) supprimer le lien vers le fichier Excel et (ii) limiter la taille en octects du document Word.
J'ai tenté le bout de code ci-dessous, mais le pastespecial échoue. Seul le Paste, tout court, est accepté par Excel. Auriez vous une solution à ce pb (je suis sous Excel XP 2003) ?