Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
"Comment" in an "Oval" ? | Excel Programming |