vba加載項按鈕

加載項增長按鈕

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

End Sub