Hyperlink in Userform
11.03.2021 15:56:51
oraculix
In meiner Userform1 gibt ein Image1 mit eingefügtem Bild.
Ich möchte mit der Maus auf das Bild klicken und dann soll Hyperlink geöffnet werden.
mein Makro reagiert leider überhaupt nicht darauf
Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms. _
DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
ActiveWorkbook.FollowHyperlink ActiveSheet.Range("B1").Hyperlinks(1).Address
End Sub