|
楼主 |
发表于 2011-8-3 23:17
|
显示全部楼层
附上一段示例代码:
Set iBar = Application.CommandBars.Add(cjname, msoBarTop, , True)
'-----------------------------------------------第一个二级菜单------------------------------------------------
Set iBtn = iBar.Controls.Add(Type:=msoControlPopup) '系统 '这里是一级
With iBtn
.Caption = " 【系统】" '这个是名称(显示用的)一级菜单的
.TooltipText = "查詢用户和权限" '鼠标移过提示
With .Controls.Add(Type:=msoControlButton, ID:=2950) '这里是二级第一个项目
.FaceId = 69 '指定显示的图标
.TooltipText = "查詢當前系統登錄用戶名" '鼠标移过提示
.Style = msoButtonIconAndCaption '同时显示图标和标题
.BeginGroup = True
.OnAction = "username" '指定要执行的宏
.Caption = " 【用戶】" '这个是名称(显示用的)二级菜单的
.Tag = "查詢"
.Enabled = True
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, ID:=2950) '这里是二级第二个项目
.FaceId = 2103 '指定显示的图标
.BeginGroup = True
.Caption = " 【權限】" '这个是名称(显示用的)二级菜单的
.Tag = "權限"
.OnAction = "uusers" '指定要执行的宏
.Enabled = True
.Style = msoButtonIconAndCaption
.TooltipText = "修改簽名權限【需授權用戶使用】"
.Visible = True
End With
End With
'
[ 本帖最后由 opel-wong 于 2011-8-3 23:18 编辑 ] |
|