Procédure LoadPicture(strFileName est une chaîne)
TGUID est une structure
Data1 est un entier sur 4 octets
Data2 est un entier sur 2 octets
Data3 est un entier sur 2 octets
Data4 est un tableau fixe de 8 entiers sur 1 octets
FIN
szURLorPath est une chaîne
punkCaller est un entier sur 4 octets
dwReserved est un entier sur 4 octets
clrReserved est un entier sur 4 octets
oPicture est un objet automation dynamique
IID est un TGUID
szURLorPath = 0
punkCaller = 0
dwReserved = 0
oPicture = Null
IID:Data1 = 2079852928
IID:Data2 = 48946
IID:Data3 = 4122
IID:Data4[1] = 139
IID:Data4[2] = 187
IID:Data4[3] = 0
IID:Data4[4] = 170
IID:Data4[5] = 0
IID:Data4[6] = 48
IID:Data4[7] = 12
IID:Data4[8] = 171
szURLorPath = strFileName + Caract(0)
API("oleaut32.dll","OleLoadPicturePath",szURLorPath , punkCaller , dwReserved , &clrReserved , &IID , &oPicture )
RENVOYER oPicture
ActiveX>>Cell(3,X,Y)= LoadPicture("c:\windows\plume.bmp")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1020&post_id=4170