vba加载项按钮

加载项增长按钮

Private Sub workbook_add()
    With Application.CommandBars("standard").Controls.Add
    .Style = msoButtonCaption
    .Caption = "打印"
    .OnAction = "模块1.Macro1"
    End With

End Sub