View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Doug Glancy Doug Glancy is offline
external usenet poster
 
Posts: 770
Default "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