Activex Element bei Klick -> Sprung
08.12.2022 10:37:29
Gula
ich habe ein ActiveX Steuerelement (Bild), welches beim Anklicken in eine bestimmte Zelle springen soll.
Gibt es hierfür eine Möglichkeit dies in VBA umzusetzen?
Für das Anklicken von Zellen, dass er woanders hinspringt, habe ich bereits umgesetzt. Ich bräuchte allerdings eine Lösung für mein image1 ActiveX Steuerelement.
Den Code welcher für die Zellen funktioniert lautet wie folgt:
'Zellen A1:ABS5, ... Sperren
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldSel As Range
If Intersect(Target, Range("A1:ABS5,A6:A37,B6:C27,A38:ABS100")) Is Nothing Then
Set OldSel = Target
Else
If OldSel Is Nothing Then Set OldSel = Range("D6")
OldSel.Select
End If
End Sub
Anzeige