Sub EncapsulerImage()
'Touches Ctrl+A pour lancer la macro
Dim NomImage$, NomPhoto$, s As Shape, fichier$
NomImage = InputBox("Nom de l'image à encapsuler :")
NomPhoto = InputBox("Nom de la photo (ActiveX) :")
Application.ScreenUpdating = False
On Error Resume Next
Set s = f.Shapes(NomImage)
fichier = ThisWorkbook.Path & "\" & s.Name & ".jpg"
s.CopyPicture
With f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
.Paste
.Export fichier, "JPG"
.Parent.Delete
End With
f.OLEObjects(NomPhoto).Object.Picture = LoadPicture(fichier)
Kill fichier
Unload Userform1
auto_open 'relance le diaporama
End Sub