Mouseover Shape InfoBox mit Zellbezug
29.05.2018 11:06:30
Andreas
Ich versuche grade ein Mouseover-Event für ein Shape zu erstellen. Dabei soll wenn ich mit der Maus über dem Shape bin, ein Infotext angezeigt werden, der einen Zellbezug hat. Geh ich mit der Maus runter, soll der Text wieder ausgeblendet werden.
Ändere ich den Text in dem Zellbezug, soll das nächste Mal, wenn ich mit der Maus auf dem SHape bin, natürlich der aktualisierte Text angezeigt werden.
Bisher habe ich nur hinbekommen, dass ein per Klick auf das Shape ein Hyperlink mit einem Zellbezug erstellt wird. Leider ist der Hyperlink nicht mehr Variabel, da der Infotext nur einmal generiert wird.
Mein Code sieht derzeit so aus:
Sub Test()
Dim shp As Shape
Set shp = Worksheets("Timeline").Shapes("Rechteck 1")
Worksheets("Timeline").Hyperlinks.Add shp, "", "", _
ScreenTip:=Worksheets("Übersicht").Range("C2").Value
End Sub
Kann man überhaupt für ein Shape ein Mouseover-Event erstellen?