Bilder umschalten geht nach anklicken nicht mehr
19.04.2016 15:54:37
yummi
ich hoffe ihr könnt mir ohne Beispiel auch helfen, sonst muss ich versuchen die Datei hochzuladen.
Ich habe auf einem Tabellenblatt ActiveX Komponenten Bild eingefügt. Dort habe ich dann ein Bild hinterlegt.
Es gibt eine UserForm auf der ein Steuerelement Anzeige zur Darstellung der Bilder hinterlegt ist.
Zusätzlich gibt es noch Optionsbuttons mit denen die Bilder umgeschaltet werden können. Das klappt auch alles wunderbar.
Nachdem ich in das Steuerelement Anzeige klicke, geht es nicht mehr. Das Bild wird nicht mehr umgeschaltet. ich brauche aber den klick in das Steuerelement, um eine Volldarstellung des Bildes umsetzen zu können.
Die Darstellung der Bilder mache ich so:
Function Bildbestimmen()
Dim rng As Range
Dim strRange As String
If Me.MSBox.Text "" Then
Set rng = Nothing
strRange = "A11:A" & BestimmeLetzteZeile(wksBilder, 1)
Set rng = FindeWert(wksBilder, strRange, Me.MSBox.Text)
If Not rng Is Nothing Then
Debug.Print rng.Row
If bBild1 = True Then
Me.Image1.Picture = wksBilder.OLEObjects("Thema" & rng.Row - 10 & "1").Object. _
Picture
Else
Me.Image1.Picture = wksBilder.OLEObjects("Thema" & rng.Row - 10 & "2").Object. _
Picture
End If
End If
End If
End Function
Vielen Dank yummi