一、获取菜单名称及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
评论