transformer un graphique en image par VbA

[nicroq]

Bonjour,

voici la problématique qui s'offre a moi,
je souhaiterai par VBA transformer un graphique en image sur la meme feuille... cela est il possible,

Je sais qu 'il est possible de l'exporter dans un dossier
Sub SauveGIF ()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub

mais moi je souhaiterai juste le sauvegarder en image sur la meme sheet d origine
Merci pour votre aide

cordialement

 

[Yurperqod]

Bonjour à tous

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

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

 

[nicroq]

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

 

[phlaurent55]

Bonjour à tous,

Voir fichier joint

à+
Philippe

 

[nicroq]

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

 

[phlaurent55]

Re,

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

à+
Philippe

 

[nicroq]

comment realiser cela par vba?

 

[phlaurent55]

Re,

comment realiser cela par vba?

comme ceci:

à+
Philippe

 

[nicroq]

merci c est top!!!
bonne journée

 

[Alim@]

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!