Re : VBA Insérer une Image(qui provient d'un site internet) dans un controle
Bonjour,
Je voulais juste vous partager mes ressentes trouvailles. Je n'aimais pas l'idée de creer pour ensuite éliminer afin d,obtenir ce que je cherchais à accomplir.
Premièrement, ceci ne se fait pas et j'ai trouvé la confirmation sur 2 forums de discussion indépendant.
a = "http://images.static-bluray.com/movies/covers/7716_large.jpg"
Me.Image1.Picture = LoadPicture(a, 100, 100)
Ensuite, avec quelques recherches supplémentaire, à l'aide d'une fonction API j'ai pu accomplir plus directement mon objectif.
Comment ça marche...ça c'est un autre sujet. ;-)
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As GUID, ByRef ppvRet As IPicture) As Long
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
' Ref. de l'adresse du site internet
Me.Image1.Picture = GetImage(Cells(Me.ListBox1.ListIndex + 2, 5).Value2)
Public Function GetImage(hURLorPath As String, Optional TransparentColor As OLE_COLOR = vbWhite) As StdPicture
Dim uID As GUID
With uID ' // StdPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(3) = &HAA
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
Call OleLoadPicturePath(StrPtr(hURLorPath), 0&, 0&, TransparentColor, uID, GetImage)
Bonne Journée(soirée pour mes cousins) !