transformer un graphique en image par VbA

Yurperqod

XLDnaute Occasionnel

• 7 Novembre 2017

• #2

Bonjour à tous

On peut faire comme ca
(Avec un seul graphique sur la feuille courante)

Code:

Sub Macro1()
ActiveSheet.ChartObjects(1).CopyPicture
ActiveSheet.Paste Destination:=ActiveSheet.Range("K1")
End Sub

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 8 Novembre 2017

• #3

Bonjour

cela marche tres bien sauf que mon graphique est groupé avec des shapes et votre methode ne copie que le graphe sans les shapes groupés avec.
Cela serait il possible de copier le groupe chart + shapes?

cordialmeent

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2017

• #4

Bonjour à tous,

Voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsx

  21.3 KB · Affichages: 94

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 8 Novembre 2017

• #5

merci phlaurent55!!

cela serait parfait mais mon objectif est en fait de créer une image pour ensuite supprimer le graphique initial et ainsi ne conserver que l'image.. dans votre solution si je supprime le graphique cela supprime l 'image... auriez vous une autre solution ?

en vous remerciant pour votre aide

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2017

• #6

Re,

la solution est de sauvegarder l'image telle qu'elle est actuellement et ainsi pouvoir supprimer le graphe

à+
Philippe

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 8 Novembre 2017

• #7

comment realiser cela par vba?

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2017

• #8

Re,

nicroq à dit:

comment realiser cela par vba?

Cliquez pour agrandir...

comme ceci:

à+
Philippe

 

Pièces jointes

• 111.xlsm

  29.2 KB · Affichages: 161

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 8 Novembre 2017

• #9

merci c est top!!!
bonne journée

 

Vote positif 0 Vote négatif

A

Alim@

XLDnaute Nouveau

• 22 Août 2021

• #10

Bonjour la communauté!
Alors je voudrais transformer en image le graphique de Karaseck que j'avais réussi à faire grace à votre aide précieuse.
Cependant en appliquant la formule-ci:
Sub SauveGIF ()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub
C'est sans succés. En effet une boite de dialogue Microsoft Visual Basic me dit: Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

Dans l'attente de votre retour.
Merci et bien à vous!

 

Vote positif 0 Vote négatif