How to list objects defined

How to list objects defined - buttons, etc.?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

G Lykos - 17 Dec 2006 08:40 GMT

Greetings! Is there a way to create a list of the objects, such as buttons,
defined in a workbook?

Thanks,
George

Reply to this Message

Helmut Weber - 17 Dec 2006 08:57 GMT

Hi George,

maybe you are looking for something
along these lines:

Sub Test90023()
Dim oSht As Worksheet
Set oSht = ActiveSheet
Dim lCnt As Long
For lCnt = 1 To oSht.Shapes.Count
If oSht.Shapes(lCnt).Type = msoFormControl Then
MsgBox oSht.Shapes(lCnt).FormControlType
End If
Next
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Bob Phillips - 17 Dec 2006 13:24 GMT

A bit more generic

Sub Test90023()
Dim oSht As Worksheet
Set oSht = ActiveSheet
Dim lCnt As Long
For lCnt = 1 To oSht.Shapes.Count
MsgBox oSht.Shapes(lCnt).Name & " at " &
oSht.Shapes(lCnt).TopLeftCell.Address
Next
End Sub

Signature

---
HTH

Bob

(change the xxxx to gmail if mailing direct)

> Hi George,
>
[quoted text clipped - 11 lines]
> Next
> End Sub

Reply to this Message