Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Image1.Picture = LoadPicture(""): Exit Sub
Dim s As Shape
Set s = Feuil2.Shapes(ComboBox1)
s.CopyPicture
With Feuil2.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\MonImage.jpg", "JPG"
.Parent.Delete
End With
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\MonImage.jpg")
Kill ThisWorkbook.Path & "\MonImage.jpg"
End Sub
Private Sub UserForm_Initialize()
Dim s As Shape
For Each s In Feuil2.Shapes
ComboBox1.AddItem s.Name
Next
End Sub