VBA代码 单击时执行“插入代码”过程，则传递一个参数 cCmdEvent
发表于 2025年3月18日 15:08
返回列表Option Explicit
Public WithEvents MyEvent As VBIDE.CommandBarEvents
Private Sub MyEvent_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
On Error Resume Next
Call ControlAction(CommandBarControl) '单击时执行“插入代码”过程，则传递一个参数，该参数为菜单名称
Handled = True
CancelDefault = True
Call ErrRecovery
End Sub