Discussion :

[jakbom]

salut Reaverman
en faisant le tri dans mes archive vba et image j'ai retrouver mon model 4 facon differentes
je te le met a dispo ici

Attention !!!
Le fichier attaché est vérolé. (Trojan)

[boisgontierjacques]

Bonjour,

La méthode de Davido84 ne fonctionne plus sur les versions récentes.

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
17
18
19
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  s = "https://www.google.fr/images/srpr/logo11w.png"
  Set img = ActiveSheet.Pictures.Insert(s)
  img.Left = 1
  img.Top = 1
  img.CopyPicture xlScreen, xlBitmap
  With img.Parent.ChartObjects.Add(0, 0, img.Width, img.Height).Chart
    While .Shapes.Count = 0
        DoEvents
        .Paste
    Wend
    .Export "monimage.gif", "gif"
    .Parent.Delete
  End With
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.gif")
  img.Delete
End Sub

Boisgontier