- 博客(0)
- 资源 (2)
- 收藏
- 关注
EXCEL VBA创建菜单代码
EXCEL VBA创建菜单的代码
Sub Creatxlsht()
On Error Resume Next
Application.CommandBars("xlsht").Delete
Dim cbrCmdBar As CommandBar
Dim strCBarName As String
strCBarName = "xlsht"
Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)
Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton)
With SubMenu
.Caption = "数据维护中心"
.TooltipText = "aa"
.Style = msoButtonIconAndCaption
.Tag = "bb"
.FaceId = 9588 ' 9949 '2122 '1018
.Enabled = True
.OnAction = "k"
End With
Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton)
With SubMenu
.Caption = "显示客户记录"
.TooltipText = "aa"
.Style = msoButtonIconAndCaption
.Tag = "bb"
.FaceId = 9584 ' 9949 '2122 '1018
.Enabled = True
.OnAction = "xskujl"
End With
Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton)
With SubMenu
.Caption = "删除客户记录"
.TooltipText = "aa"
.Style = msoButtonIconAndCaption
.Tag = "bb"
.FaceId = 9585 ' 9949 '2122 '1018
.Enabled = True
.OnAction = "Sckujl"
End With
2009-09-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人