Bonjour à tous ,
J'ai les code suivant :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub new_gprahe()
Dim graphMM As Chart
Dim Img As String
Dim obj As Object
With Worksheets("Graph")
Set obj = .Shapes.Range(Array("Group 10"))
'Set graphMM = Worksheets("Graph").ChartObjects(1).Chart
title_graphe = obj.name
Img = ThisWorkbook.Path & "\" & title_graphe & ".gif"
obj.Export Filename:=Img, FilterName:="GIF"
Set graphMM = Nothing
'Kill Img
obj.Export
End With
End Sub |
J'arrive parfaitement à afficher et sauver un graphique Excel dans mon Userform. Mon probleme est le suivant :
J'ai ajouté des forms sur mon graphique que j'ai groupé sur mon graph que j'ai appelé "Groupe 10". J'aimerai sauvé ce group 10 en format gif et l'afficher dans mon userform.
Cependant
obj.Export Filename:=Img, FilterName:="GIF"
ne fonctionne pas car mon object n'est pas un Graph ...
Avez vous une idée ?
Merci d'avance
Partager