VB to select object (ie shape or button)

[velohead]

Hi All,
I have a simple test macro that provides a sheet name in a message box.
Name just happens to be a property I show.
The macro works fine, and is as follows...

Sub WS_Name()
Dim n As Integer
n = InputBox("enter sheet number")
x = Worksheets(n).Name
MsgBox x
End Sub

I wish to change the macro to look at objects not worksheets.
By objects, I mean objects such as buttons, shapes etc, i.e. those items that can be selected by using F5, Special, Objects.

There seems to be a lot of different objects, not sure what the generic name is for them, I thought it was Shapes and Shape.

So, as I am going around in circles, how would I tackle this please.

PS
Worksheet Name just happens to be the property I specified in macro 1
In macro 2, any shape property will suffice, eg Height, ID, Name, Type etc
Once this works, I can change the property.

 

[My Aswer Is This]

I'm not sure what your ultimate goal is.

Your wanting a message box to popup with what?

 

[My Aswer Is This]

I see now your wanting put into a Input Box the name of the object and then select that object.

 

[velohead]

ultimate aim is to automatically select each 'shape' or 'button' and return via a msgbox what 'type' the object was.

 

[velohead]

the input box was to just select 1 of 3 objects, either a workbook or object.
There were only 3 worksheets in my workbook, and only 3 'shapes' or 'buttons' on the active sheet.

 

[My Aswer Is This]

Try this:

Sub Select_All_Shapes()
    For Each Shape In ActiveSheet.Shapes
    
    ans = "Shape Name is  " & Shape.Name & "  " & "  Shape Type is  " & Shape.Type & vbNewLine & ans
    'MsgBox ans
    Next
MsgBox ans
End Sub

 

[velohead]

Wow, that works extremely well, better than doing a msgbox for each shape.
Thank You So Much.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Wow, that works extremely well, better than doing a msgbox for each shape.
Thank You So Much.