|
请问版主,我想增加多一个分支菜单,但不知如何增加,请指教。
'往弹出式菜单中添加菜单项过程
'过程中几个参数:
'1 sCaption:菜单标题
'2 lngType :CommandControl类型,为msoControlButton 或者msoControlPopup
'3 sAction :菜单项所执行的宏名称
'4 lngFaceID:菜单图标ID号
'5 bBeginGroup:是否开始分组
'6 bEnabled :是否可用(使能)
Public Sub AddItemIntoBar(sCaption As String, _
lngType As Long, _
sAction As String, _
Optional lngFaceID As Long = 0, _
Optional bBeginGroup As Boolean = False, _
Optional bEnabled As Boolean = True _
)
On Error Resume Next
Dim newBar As CommandBarControl
With Popup_Menu
Set newBar = .Controls.Add(lngType) '添加菜单项
With newBar '设置菜单项
.Caption = sCaption & Space(5) '为使用菜单好看,在标题后加上5个空字串,使用菜单宽度增宽
.FaceId = lngFaceID
.OnAction = sAction
.BeginGroup = bBeginGroup
.Enabled = bEnabled
End With
'因为在本例子中只有一个msoControlPopup类型,所在就直接在这里添上代码了;
'如果有多个的话可另加过程调用
If lngType = msoControlPopup Then
Dim newPop As CommandBarButton
With newBar
Set newPop = newBar.Controls.Add(msoControlButton)
With newPop
.Caption = "团队LOGO" & Space(5)
.OnAction = "unload_logo"
.FaceId = 59
End With
Set newPop = newBar.Controls.Add(msoControlButton)
With newPop
.Caption = "团队图片" & Space(5)
.OnAction = "Unload_pic"
.FaceId = 931
End With
End With
End If
End With
End Sub
| 
楼主: 清风_ll
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2007-2-4 11:28
