schaltfläche/UserForm1/Image1/Bild zeigen
01.02.2007 15:06:15
achim
wer kann helfen?
Habe diesen code erstellt der soweit bis auf eine nicht akzeptabellen macke funzt.
wenn ich schaltfläche1(auf der tabelle) klicke taucht erst gar kein bild auf also schließ ich die userform klicke nochmal schaltfläche1 und siehe da das bild ist da. danach schliesse die userform und .... nun klicke ich auf schaltfläche2 ,die userform startet aber das alte bzw. vorherige bild wird gezeigt und nicht das wie im code beschrieben. schliesse ich die userform wieder und klicke nochmal schaltfläche2(auf der tabelle), dann taucht das richtige bild auf.
das nervt zumal ein anwender gar nicht weiss was ist das richtige bild zu dem sachverhalt
Sub Schaltfläche1_BeiKlick()
UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Am_Steinberg_Richt_Höntrop_Kirche.JPG")
End Sub
Sub Schaltfläche2_BeiKlick()
UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Am_Steinberg_Richt_Heven_Dorf.JPG")
End Sub
oder geht das auch klicke auf zelle zb H20 und das entsprechende bild (das sich im gleichen unterverzeichnis befindet)wird in der userform1.image1 gezeigt
danke achim h.