Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path Set i = ActiveSheet.Shapes("monimage") ' nom de l'image i.CopyPicture ActiveSheet.ChartObjects.Add(0, 0, i.Width, i.Height).Chart.Paste ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.gif", FilterName:="gif" ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete Me.Image1.Picture = LoadPicture("monimage.gif") End Sub
Cordialement JB
Bonjour
Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
Set i = ActiveSheet.Shapes("monimage") ' nom de l'image
i.CopyPicture
ActiveSheet.ChartObjects.Add(0, 0, i.Width, i.Height).Chart.Paste
ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.gif",
FilterName:="gif"
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Me.Image1.Picture = LoadPicture("monimage.gif")
End Sub
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path Set i = ActiveSheet.Shapes("monimage") ' nom de l'image i.CopyPicture ActiveSheet.ChartObjects.Add(0, 0, i.Width, i.Height).Chart.Paste ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.gif", FilterName:="gif" ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete Me.Image1.Picture = LoadPicture("monimage.gif") End Sub
