AddinInstall 事件

       

当工作簿作为加载宏安装时,产生此事件。

Private Sub Workbook_AddinInstall()

示例

当指定工作簿作为加载宏安装时,本示例将一个控件添加到常用工具栏中。

Private Sub Workbook_AddinInstall()
    With Application.Commandbars("Standard").Controls.Add
        .Caption = "The AddIn's menu item"
        .OnAction = "'ThisAddin.xls'!Amacro"
    End With End Sub
End Sub