Plaatje op userform plaatsen op werkblad

[rkootje]

Vraagje,

ik heb een userform gemaakt waar een afbeelding zichtbaar wordt, wanneer je een bep. tekst selecteerd in een combobox.
dit plaatje wil ik ook op het werkblad plaatsen, wanneer het userform dmv oke button wordt afgesloten.
zie voorbeeld hieronder;
Private Sub Cmb_Oké_Click()

'controle of alle tekstvelden zijn gevuld, behalve textbox 4
If Me.Cob_Plaats.Text = "" Then
MsgBox ("Plaats invullen aub.")
ElseIf Me.Txt_Straat.Text = "" Then
MsgBox ("Straatnaam invullen a.u.b.")
ElseIf Me.Txt_Hnr.Text = "" Then
MsgBox ("Huisnummer invullen a.u.b.")
ElseIf Me.Cob_Reden.Text = "" Then
MsgBox ("Reden inspectie invullen a.u.b.")
ElseIf Me.Cob_Inspectie_Afgerond.Text = "" Then
MsgBox ("Antwoord vermelden bij Inspectie afgerond? a.u.b.")
ElseIf Me.Cob_Veilig_werken.Text = "" Then
MsgBox ("Invullen of er veilig gewerkt kan worden in de woning?")
ElseIf Me.Cob_Asbest_J_N.Text = "" Then
MsgBox ("Invullen of er asbest toepassingen zijn aangetroffen?")
' ElseIf Me.Cob_Asbest_J_N.Text = "Ja" And
'Me.Txt_asbesttoepassingen.Text = "?"

'MsgBox ("Invullen of er asbest toepassingen zijn aangetroffen?")

Else

'pas als alle velden zijn gevuld dat tekst in velden plaatsen

'Als Oke btn wordt gebruikt plaats de text in textBox 1,2,3,4 in de daarvoor bestemde cellen


Blad1.Range("DD_aanvraag") = Me.Txt_DD
Blad1.Range("E6") = Me.Txt_Straat
Blad1.Range("G6") = Me.Txt_Hnr
Blad1.Range("E8") = Me.Cob_Plaats
Blad1.Range("E3") = Me.Cob_Reden
Blad1.Range("E10") = Me.Cob_Inspectie_Afgerond
Blad1.Range("E12") = Me.Cob_Asbest_J_N
Blad1.Range("E14") = Me.Txt_asbesttoepassingen
Blad1.Range("E20") = Me.Cob_Veilig_werken
Blad1.Range("E22") = Me.Txt_Memo
'Blad1.Range("G7") = Me.Image_asbest

wie kan me helpen??

heb tot nu toe nog geen opgelossing gekregen,

 

[Warme bakkertje]

Plaats een Image-control op je werkblad en net zoals je nu code gebruikt om de afbeelding op je UF te krijgen (althans dat veronderstel ik toch) gebruik je de iets aangepaste code om de afbeelding in de control op je werkblad te plaatsen.

 

[rkootje]

Hoi Warme bakkertje,

om het plaatje op het userform te krijgen heb ik het volgende gedaan,

Private Sub Cob_Inspectie_Afgerond_Change()
If Me.Cob_Inspectie_Afgerond.Text = "Afgebroken" Then
Me.Image_asbest.Visible = True
Me.Txt_Memo.Text = "Inspectie afgebroken ivm mogelijk gevaarlijke blootstelling van een asbestbesmetting."
End If

End Sub

als ik dan,
probeer na het userform af te sluiten, deze afbeelding op het ws te krijgen, ontvang ik een fout, ook na je tip van het aanbrengen van een image control.
Image_ws_asbest = Me.Image_asbest

 

[Warme bakkertje]

Hoe heb je die afbeelding in je UF gekregen ? Die moet zich toch ergens op je HD bevinden ?

 

[rkootje]

Hoi Warme bakkertje,

Het bitmapje heb ik op het userform geplaatst, en op onzichtbaar gezet, bij het selecteren van een bepaalde tekst,veranderd de eigenschap op zichtbaar