Afbeelding van worksheet naar userform

[mark1987vw]

Onlangs heb ik op dit forum de manier gekregen hoe je een afbeelding kan inladen vanuit een Userform in een worksheet.

Nu wil ik graag andersom maar dit krijg ik niet voor elkaar.

Dus ik wil bij het starten van een Userform dat die de afbeelding in het Userform aanpast in de afbeelding uit de sheet.

Ik dacht het zo te doen maar daarin geeft die aan dat de typen niet overeen komen.

Private Sub UserForm_Initialize()

UserForm1.Image1.picture = LoadPicture(Worksheets("PDF").Shapes("Afbeelding2")) 
Me.TextBox1.Value = Range("B1").Value

End Sub

Ik heb een testbestand bijgevoegd.

 

[JEC.]

Je hebt een volledig bestandspad nodig om die afbeelding in te laden

 

[snb]

Wees slim: sla de afbeelding in het werkblad op in een ActiveX image control.
Daarna kun je die ad libitum in het Userform opnemen.
Met de simpelst mogelijke macro:

Private Sub UserForm_Initialize()
    Image1.Picture = Blad1.Image1.Picture
End Sub

Het aardige is dat je in het werkblad een 'onbeperkt' aantal ActiveX-afbeeldingen kunt opnemen.
De ActiveX controls kun je tegelijkertijd verbergen zodat een gebruiker prima vista geen afbeeldingen ziet.
Overigens kun je natuurlijk ditzelfde uithalen binnen het Userform zelf: 4 voor de gebruiker onzichtbare afbeeldingen en 1 afbeelding die, afhankelijk van de invoer door de gebruiker, de gedaante van 1 van de onzichtbare afbeeldingen krijgt.

 

[mark1987vw]

Dank je wel! Zo werkt het inderdaad!