"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

"Comment" in an "Oval" ?
 

Doug - Thank you. You are correct.

Since I'm an Access Developer, I was going to try setting a
Boolean value to do the same thing.

Bob

"Doug Glancy" wrote:

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