VBA Excel自定义菜单方法

VBA Excel自定义菜单方法  

2010-08-23 11:52:19|  分类： Excel自动化 |  标签： |字号大中小 订阅

Sub addmymenu()
On Error Resume Next

Application.CommandBars("Worksheet menu bar").Controls("我的菜单).Delete  '1

    With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=8)
        .Caption = "我的菜单"
        With .Controls.Add(Type:=msoControlPopup)
            .Caption = "二级菜单1"
            With .Controls.Add(Type:=msoControlPopup)
                .Caption = "三级菜单1"
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "按钮1"
                    .Style = msoButtonIconAndCaption
                    .TooltipText = "FirstMenuItem TooltipText"
                    .OnAction = "aaa"
                    .FaceId = 636
                    .ShortcutText = "Ctrl+Altt+z"
                End With
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "按钮2"
                    .OnAction = "bbb"
                    .BeginGroup = True
                    .ShortcutText = "Ctrl+Alt+v"
                    .FaceId = 61
                End With               
            End With         
            With .Controls.Add(Type:=msoControlPopup)
                .Caption =  "三级菜单2"
                With .Controls.Add(Type:=msoControlButton)
                        .Caption = "按钮3"
                        .OnAction = "ccc"
                        .FaceId = 278
                    End With                   
            End With
       End With
   End With

 End Sub