Bonjour à tous ,

J'ai les code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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