Finding the names of objects

[Yogi39]

I've insert a rectangle in a workbook and assigned a macro to it, actualy I have a few rectangles to which macros are attached.
I need to refer to the rectangles from VB,
How do I get the name of a particular rectangle ?
???ActiveSheet.Shapes("Rectangle ?&quot.Select

 

[Yogi39]

Also, is it possible to write and or read the text of that triangle ?
That is :
the macro attached to a rectangle hides rows greater that X
so when the user clicks on the rectangle the macro hides all rows less than X.
The catch.....
I want the text of that rectangle to change to ">x" and when re clicked have the text change to "all"

Is this doable ?

 

[SkipVought]

Hi,
In the Name Box is a unique name for each object in your sheet. Here is a small procedure that will display the Name of each one.

Sub Objects()
    Dim Shape As Object
    With Sheets(1)
        For Each Shape In .Shapes
            With Shape.DrawingObject
                MsgBox .Name & " " & .Text
            End With
        Next
    End With
End Sub
[\code]
Shape.DrawingObject.Text can be changed.  Shape.DrawingObject.OnAction can be changed.

Hope this helps  :-)
 Skip,
SkipAndMary1017@mindspring.com

 

[Yogi39]

So if my shape name is Rectangle 5

how would I insert the text " View >60" to Rectangle 5
how would I read the text to know wich macro to call
that is if user clicks the box when the text is " View >60"
the hide macro is called and the text would get replaced by ">60" and if the user now clicks on the same rectangle the unhide macro is called and the text gets replaced by " View >60"

 

[Yogi39]

Thanks fo rthe help Skip !

this seems to do it...
Sub cool()


D = ActiveSheet.Shapes("Rectangle 10&quot.TextFrame.Characters.Text
If D = "Test Label" Then ActiveSheet.Shapes("Rectangle 10&quot.TextFrame.Characters.Text = "Swtich" _
Else ActiveSheet.Shapes("Rectangle 10&quot.TextFrame.Characters.Text = "Test Label"
End Sub

 

[Yogi39]

How can I mod this to read and name checkboxes ?

 

[SkipVought]

Test the Name for "CheckBox" Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com