Control Tip or MouseOver label on Excel shapes

[Dale Fye]

I'm using Access VBA to build an Excel Workbook which visually depicts a
bunch of project timelines.

I am creating lines which depict the duration of the project, along with
boxes and several other shapes which depict key events along the timelines.
I would like to add a control tip text or something like that for each of
these shapes, so that when a user hovers their mouse over the shape, it can
display additional information.

How would I do this using VBA?

Dale Fye

 

[Peter T]

Shapes do not support tooltips, however you could add a dummy hyperlink with
a tooltip, eg

' add say a rectangle to the sheet
Sub Test()
Dim shp As Shape

Set shp = ActiveSheet.Shapes(1)

ActiveSheet.Hyperlinks.Add shp, "", "", _
ScreenTip:="Hello from " & shp.Name

End Sub

As written, the Address and SubAddress arguments are empty, though you could
of course include a real link.

Regards,
Peter T

 

[Dale Fye]

Thanks, Peter.

Worked like a charm.

Dale

Shapes do not support tooltips, however you could add a dummy hyperlink
with a tooltip, eg

' add say a rectangle to the sheet
Sub Test()
Dim shp As Shape

Set shp = ActiveSheet.Shapes(1)

ActiveSheet.Hyperlinks.Add shp, "", "", _
ScreenTip:="Hello from " & shp.Name

End Sub

As written, the Address and SubAddress arguments are empty, though you
could of course include a real link.

Regards,
Peter T