"Comment" in an "Oval" ?
Bob,
If you assign this macro to the oval it will hide and unhide the text when
you click the shape. I assumed an oval named "Oval 1" (note the space) on
"Sheet1":
Sub Oval1_Click()
If Worksheets("Sheet1").Ovals("Oval 1").Characters.Text = "" Then
Worksheets("Sheet1").Ovals("Oval 1").Characters.Text = "Hi." & vbLf _
& "(Click to hide this message.)"
Else
Worksheets("Sheet1").Ovals("Oval 1").Characters.Text = ""
End If
End Sub
hth,
Doug Glancy
"Bob Barnes" wrote in message
...
I am an Access Developer.
If you place an "Oval" on a Worksheet, you can also add text to it (but
the text displays constantly).
Is there a way to assign a "Comment" (like in a celll w/ the "red marks"
in the upper-left corner of the cell) so either clicking the Oval (or
placing
the mouse over the Oval) would display a message?
TIA - Bob
|