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

Powerpoin

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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(名字)内的指令名的名单。仅供参考。