在vba中如何使用PopupMenu函数，创建自己的菜单

[flytorain]

在vba中如何使用PopupMenu函数，创建自己的菜单
还有就是 在vba 怎么没有菜单编辑器，如何添加
多谢执教！！

[jam021]

关注,帮你顶!

[teeing]

Sub AddCappMenu()
Dim mainMenu As CommandBar
Dim CappMenu As CommandBarPopup

Dim menu_Open As CommandBarButton
Dim menu_Save As CommandBarButton
Dim menu_Knowledge As CommandBarPopup
Dim menu_ManageKL As CommandBarPopup

Dim menu_Resource As CommandBarButton
Dim menu_Term As CommandBarButton
Dim menu_PFMEA As CommandBarButton
Dim menu_CreateTable As CommandBarButton
Dim menu_OpenTable As CommandBarButton



Set mainMenu = CommandBars.ActiveMenuBar

Set CappMenu = mainMenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
CappMenu.Caption = "¹¤ÒÕÉè¼Æ"

Set menu_Open = CappMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With menu_Open
.Caption = "×ÊÔ´°ó¶¨"
.TooltipText = "band"
.OnAction = "DummyCommand"
.Style = msoButtonCaption
End With

Set menu_Save = CappMenu.Controls.Add(Type:=msoControlButton, ID:=2)
With menu_Save
.Caption = "²åÈë×ÊÔ´"
.TooltipText = "insert"
.OnAction = "SaveFile"
.Style = msoButtonCaption
End With

Set menu_ManageKL = CappMenu.Controls.Add(Type:=msoControlPopup)
With menu_ManageKL
.Caption = "×ÊÔ´¹ÜÀí"
End With

Set menu_CreateTable = menu_ManageKL.Controls.Add(Type:=msoControlButton)
With menu_CreateTable
.Caption = "´´½¨±í"
.TooltipText = "´´½¨±í"
.OnAction = ""
.Style = msoButtonCaption
End With

Set menu_OpenTable = menu_ManageKL.Controls.Add(Type:=msoControlButton)
With menu_OpenTable
.Caption = "´ò¿ª±í"
.TooltipText = "´ò¿ª±í"
.OnAction = ""
.Style = msoButtonCaption
End With

Set menu_Knowledge = CappMenu.Controls.Add(Type:=msoControlPopup)
With menu_Knowledge
.Caption = "¹¤ÒÕ֪ʶ¿â"
End With

Set menu_Resource = menu_Knowledge.Controls.Add(Type:=msoControlButton)
With menu_Resource
.Caption = "ÖÆÔì×ÊÔ´¿â"
.TooltipText = "ÖÆÔì×ÊÔ´¿â"
.OnAction = "Resource"
.Style = msoButtonCaption
End With
Set menu_Term = menu_Knowledge.Controls.Add(Type:=msoControlButton)
With menu_Term
.Caption = "ÖÆÔìÊõÓï¿â"
.TooltipText = "ÖÆÔìÊõÓï¿â"
.OnAction = ""
.Style = msoButtonCaption
End With
Set menu_PFMEA = menu_Knowledge.Controls.Add(Type:=msoControlButton)
With menu_PFMEA
.Caption = "FMEA֪ʶ¿â"
.TooltipText = "FMEA֪ʶ¿â"
.OnAction = "DummyCommand"
.Style = msoButtonCaption
End With

End Sub

你看看，应该可以明白

[teeing]

怎么中文部分都是乱码了，汗～～～，不过不影响阅读，如果不习惯，替换一下吧

[vcracoon]

高手再讲讲吧
顶！

[vcracoon]

可以看看这个:
http://www.officefans.net/cdb/viewthread.php?tid=8857&highlight=%B2%CB%B5%A5

[rgwfeng2]

mark