PowerPoint VBA获取comanndbars(名字)内的指令名的名单

Powerpoin

Sub 全CommandBars取得()
Dim xl_app As Object ' Excel.Application
Dim cb As CommandBar
Dim cnt As Long
Dim s As String, i As Long, j As Long

Set xl_app = CreateObject("Excel.Application")

With xl_app
.Visible = True
.Workbooks.Add 'Excel新作成

'項目名
.Cells(1, 1) = "CommandBars名"
For i = 1 To 20
.Cells(1, i + 1) = "名称" & i
Next i

i = 2
For Each cb In CommandBars
s = cb.Name
.Cells(i, 1) = s & cb.Id
cnt = CommandBars(s).Controls.Count 
For j = 1 To cnt
 .Cells(i, j + 1) = Application.CommandBars(s).Controls.Item(j).Caption & Application.CommandBars(s).Controls.Item(j).Id
Next j i = i + 1 Next cb Set xl_app = Nothing End With MsgBox ("処理完了(全CommandBars取得)") End Sub

　　

t内commandbars进入全想知道的名字,Excel制作新那里全输入名字宏观制作了，2排以后,comanndbars(名字)内的指令名的名单。仅供参考。