如何获得CommandButton集合？

Question

我需要列出工作表上的大量旧ActiveX命令按钮的标题.

我如何参考该系列？

伪代码:

For each btn in Activesheet.CommandButtons 
     Debug.Print btn.Caption
Next btn

Answer 1

Dim s As Worksheet

Set s = ActiveSheet

Dim o As OLEObject

For Each o In s.OLEObjects

    If TypeName(o.Object) = "CommandButton" Then
        Debug.Print o.Object.Caption
    End If

Next