VBA 获取Excel内置菜单、对话框的ID和工具栏名称

VBA 获取Excel内置菜单、对话框的ID和工具栏名称  

2010-08-25 09:44:32|  分类： Excel自动化 |  标签： |字号大中小 订阅

一、获取菜单名称及ID

Private Sub CommandButton1_Click()
Dim cp As CommandBarPopup
Dim cb1 As CommandBarButton
Set cp = CommandBars("Worksheet Menu Bar").Controls("文件(&F)")
For Each cb1 In cp.Controls
    MsgBox CStr(cb1.ID) + cb1.Caption
Next cb1
End Sub

 

二、对话框的ID

 

三、获取工具栏名称

Sub test()
For Each bar In Application.CommandBars
    debug.print bar.Name
Next
End Sub