excel中用vba加载宏添加菜单和按钮

来源：互联网发布：软件著作权怎么审核编辑：程序博客网时间：2024/05/16 06:03

‘auto_open方法文件打开后自动运行一般放在加载宏文件里（.xla）

’每次使用运行xla文件就能添加自己设计好的菜单和按钮

Private Sub Auto_Open()
    Set cmbar = Application.CommandBars("Worksheet Menu Bar")
    Set Menu = cmbar.Controls.Add(Type:=msoControlPopup)
    Menu.Caption = "menuName"

    '添加下拉菜单和按钮--------------------------------------------
     With Menu.Controls.Add(Type:=msoControlButton)
            .Caption = "buttonName"
            .OnAction = "buttonAction"
    End With
    With Menu.Controls.Add(Type:=msoControlButton)
            .Caption = "buttonName"
            .OnAction = "buttonAction"
    End With

'直接添加按钮---------------------------------------------------

    Set btn = cmbar.Controls.Add(Before:=1)
    With btn
     .Caption = "buttonName"
     .Visible = True
     .Width = 70
     .OnAction = "buttonAction"
     .Style = msoButtonIconAndCaption
End With

End Sub