怎么样取下面代码生成的菜单项的tag?

Question

.onAction = "yourFunction"
可以写yourFunction做你想做的处理
    Public cbcMenu As CommandBar
    Public cbcPopup As CommandBarPopup
    Public cbcButton As CommandBarControlPrivate Sub Workbook_Open()    Set cbcMenu = Application.CommandBars.Add(Name:="ExcelHelp", Position:=msoBarTop, Temporary:=True)
    Set cbcPopup = cbcMenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    cbcPopup.Caption = "文  件"
    Set cbcButton = cbcPopup.CommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    cbcButton.Caption = "新  增"
    cbcButton.OnAction = "test"
    cbcMenu.Visible = True
End SubSub test()
    MsgBox "delasd"
End Sub

Answer 1

我试了一试，zw_yu(鱼猫)的代码可以成功通过。