Plaatje invoegen

[Deefje]

Hallo,

Hoe kan ik in een imagefield een plaatje inladen die ik heb geexporteerd uit Excel. Heb deze code nu gebruikt, maar deze werkt niet.

Dit is de code op UserForm17:

Private Sub CommandButton1_Click()
UserForm17.Hide

file = findfile("graph.jpg")
        UserForm18.Image1.Picture = LoadPicture(file)
        UserForm18.Image1.PictureSizeMode = fmPictureSizeModeStretch
        
UserForm18.Show
End Sub

Op UserForm 18 heb ik gewoon een imageField ingevoegd met naam Image1.

Bedankt

 

[Wigi]

Wat retourneert de functie findfile in findfile("graph.jpg")?

Wigi

 

[Deefje]

Wat retourneert de functie findfile in findfile("graph.jpg")?

Wigi

Waar kan ik dat bekijken?

 

[Wigi]

Zet er in de code, na die findfile

Debug.Print file

Dan komt dat in het Immediate Window in VBA, wat je kan zien via Ctrl-G.

Wigi

 

[Deefje]

Het werkt nu opeens wel. Raar.

Bedankt!

 

[Wigi]

Het werkt nu opeens wel. Raar.

Bedankt!

Dan mag de vraag op opgelost komen.