|
本帖最后由 爱疯 于 2013-6-27 17:01 编辑
Sub test1()
Dim c, ctl, i
Cells.Clear
For Each c In Application.CommandBars '命令栏
For Each ctl In c.Controls '命令栏控件
i = i + 1
Cells(i, 1) = c.Index
Cells(i, 2) = c.NameLocal
Cells(i, 3) = ctl.Index
Cells(i, 4) = ctl.Caption
Next ctl
Next c
End Sub
ttt.rar
(24.7 KB, 下载次数: 8)
|
|