'运行该过程后，将在工作表菜单的“帮助”菜单左侧添加一个名为“统计”的新菜单。
    '注：要删除新添加的菜单，使用Delete方法即可，例如代码：CommandBars(1).Controls("统计(&S)").Delete
'将删除刚创建的“统计”菜单。
'添加菜单项
'与添加新菜单一样，在添加菜单项及子菜单时，使用Add方法，且指定合适的控件类型，其代码清单如下：
Sub AddNewMenu()
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim SubMenuItem As CommandBarButton
On Error Resume Next
'如果菜单已存在,则删除该菜单
CommandBars(1).Controls("统计(&S)").Delete
'利用ID属性查帮助菜单
Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
If HelpMenu Is Nothing Then
'如果该菜单不存在,则将新菜单添加到末尾
'设置新菜单为临时的
Set NewMenu = CommandBars(1).Controls _
.Add(Type:=msoControlPopup, Temporary:=True)
Else
'将新菜单添加到帮助菜单之前
Set NewMenu = CommandBars(1).Controls _
.Add(Type:=msoControlPopup, Before:=HelpMenu.Index, _
Temporary:=True)
End If
'添加菜单标题并指定热键
NewMenu.Caption = "统计(&S)"
'添加第一个菜单项
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "输入数据(&D)..."
.FaceId = 162
.OnAction = "Macro1"
End With
'添加第二个菜单项
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "汇总数据(&T)..."
'添加快捷键
.ShortcutText = "Ctrl Shift T"
.FaceId = 590
.OnAction = "Macro2"
End With
'添加第三个菜单项
'本菜单有子菜单项,因此其类型为msoControlPopup
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlPopup)
With MenuItem
.Caption = "数据报表(&R)..."
'添加分隔线
.BeginGroup = True
End With
'添加子菜单
'添加第一个子菜单
Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton)
vba做excel窗体录入教程
With SubMenuItem
.Caption = "月汇总(&M)"
.FaceId = 110
.OnAction = "Macro3"
End With
'添加第二个子菜单
Set SubMenuItem = MenuItem.Controls.Add _
(Type:=msoControlButton)
With SubMenuItem
.Caption = "季度汇总(&Q)"
.FaceId = 222
.OnAction = "Macro4"
End With
End Sub
Sub deleteMenu()
CommandBars(1).Controls("统计(&S)").Delete
End Sub
使用方法：在Workbook_Open() 过程中调用AddNewMenu()，在Workbook_BeforeClose过程中调用deleteMenu()

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。