Afbeelding in Userform opvragen

[danny147]

Beste,

Ik gebruik volgende code om een afbeelding op te laden in een Userform
Als besturingselement gebruik ik Afbeelding
De naam Image1 heb ik gewijzigd in Afb1

Mijn afbeeldingen krijg ik te zien waaruit ik kan selecteren
Met de code hieronder heeft hij foutcode 13 weer, "typen komen niet met elkaar overeen"
Gebruik ik LoadPicture(Application.GetOpenFilename) dan krijg ik code 53 weer, "Kan het bestand niet vinden"

Private Sub Afb1_Click()
    Afbeelding = Application.GetOpenFilename = ("C:\Users\SIDDESD\Pictures")
    Afb1.Picture = Afbeelding(Application.GetOpenFilename)
End Sub

 

[edmoor]

Zonder voorbeeldocument is dit de kortste uitleg:

Private Sub Afb1_Click()
    Afb1.Picture = LoadPicture(Application.GetOpenFilename())
End Sub

 

[danny147]

Beste edmoor,

In bijlage een voorbeelddocumentje.

 

[edmoor]

Dat kan ook niet in het Click event van de Image Control.
Doe dat van achter een Button.

 

[danny147]

Beste edmoor,

Heb het voor elkaar gekregen via Button

Bedankt :thumb:

 

[danny147]

Beste,

Hoe kan ik het formaat van een afbeelding aanpassen zodat hij goed zichtbaar is in mijn Userform ?

 

[edmoor]

Zet van het Image object de PictureSizeMode op 3 (frmPictureSizeModeZoom).

 

[danny147]

Beste edmoor,

thanks