loadpicture

[papsko]

Hallo allen,

Zit met een klein probleem.
Hoe kan ik dezelfde foto (in dit geval een rode punt) in verschillende image property laden? heb een scriptje nodig..

het gaat om 10 images properties die leeg zijn.
image1
image2
image3
etc ect

daarna aan de hand van eenl for x =1 to aantal lus de juiste aantal images gevuld worden met de rode punt.

image1.picture=loadpicture("rode punt.gif")
image2.picture=loadpicture("rode punt.gif")
image3.picture=loadpicture("rode punt.gif")
ect

bedankt alvast

 

[Warme bakkertje]

Const PictDir As String = "G:\Mijn documenten\" 'pas hier het pad naar de fotodir aan
Sub tst()
For i = 1 To 10
    'vervang ActiveSheet eventueel door de bladnaam met de image-objects
    ActiveSheet.OLEObjects("Image" & i).Object.Picture = LoadPicture(PictDir & "dsc00540.jpg")
Next
End Sub

 

[papsko]

thx voor je reactie...

ik wil het via vba aanropen..
had iets geprobeerd maar lukt nog niet...

rodeDot = ThisWorkbook.Path & "\" & "Red.gif"
For x = 1 To Sheets("blad1").[totbuizen]
MultiPage1.Pages("Page2").FrameDil1.image(x).picture = LoadPicture(rodeDot)
Next x

die image(x) is de boosdoener

 

[snb]

Je kunt alle objecten in een userform direct benaderen:

Me("Image" & j).Picture =LoadPicture(ThisWorkbook.Path & "\" & "Red.gif")

 

[papsko]

Geweldig, het werkt....
Bedankt.....

Probleem opgelost.....