加载项增加按钮

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

End Sub

叫我瞄大人
467 声望81 粉丝

喜欢追星的非科班的编程爱好者


引用和评论

0 条评论