长时间的观众，第一次海报。我有一个带有右键单击功能的表单，可以正常工作。我试图将一个子菜单添加到主右键单击菜单中，以分隔一些功能/命令。我需要/想要插入“选择案例”的部分，但是，它仅显示顶部菜单。不知道从这里去哪里。任何帮助都是极好的
谢谢 ：）
附言：如有需要，我很乐意进一步解释。
Sub fzCopyPaste(iItems As Integer)
On Error Resume Next
CommandBars("Custom").Delete
Set PopBar = CommandBars.Add(Name:="Custom", Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
'在主Popbar上添加top_menu：这项工作正常
Set top_menu = PopBar.Controls.Add(Type:=msoControlButton)
With top_menu
'.FaceId =
.Caption = "&Some Commands"
End With
需要将下面的子菜单插入顶部菜单，但什么都没有显示：不起作用
Select Case iItems
Case 1 ' Copy and Paste
Set copy_button = top_menu.Controls.Add(Type:=msoControlButton)
With copy_button
.FaceId = 19
.Caption = "&Copy"
.Tag = "tCopy"
.OnAction = "fzCopyOne(true)"
End With
Set paste_button = top_menu.Controls.Add(Type:=msoControlButton)
With paste_button
.FaceId = 22
.Tag = "tPaste"
.Caption = "&Paste"
.OnAction = "fzCopyOne(true)"
End With
Case 2 ' Paste Only
Set paste_button = top_menu.Controls.Add(Type:=msoControlButton)
With paste_button
.FaceId = 22
.Tag = "tPaste"
.Caption = "&Paste"
.OnAction = "fzCopyOne(true)"
End With
End Select
'此处的其他顶级菜单：此功能正常
Set paste_button = PopBar.Controls.Add(Type:=msoControlButton)
With paste_button
.FaceId = 22
.Tag = "tPaste"
.Caption = "Main POP BAR 2"
.OnAction = "fzCopyOne(true)"
End With
PopBar.ShowPopup
CommandBars("Custom").Delete
End Sub
您将Copy_Button等于设置为msoControlButton。如果您想要一个按钮，这是正确的。不过，您需要菜单，因此应将其设置为msoControlPopup。尝试这样的事情：
Set Top_Menu = PopBar.Controls.Add(Type:=msoControlPopup)
With Top_Menu
.Caption = "&Some Commands"
Set MySubMenu = .Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
Select Case iItems
Case 1
With MySubMenu
.Caption = "Submenu Commands"
With .Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
.FaceId = 19
.Caption = "&Copy"
.Tag = "tCopy"
.OnAction = "fzCopyOne(true)"
End With
With .Controls.Add(Type:=msoControlButton, before:=2, temporary:=True)
.FaceId = 22
.Tag = "tPaste"
.Caption = "&Paste"
.OnAction = "fzCopyOne(true)"
End With
End With
Case 2
'etc
End Select
End With
我用以下内容删除了“ Top_Menu”部分（前三行）；它添加了一个额外的按钮，然后添加了所需的菜单。
Set MySubMenu = PopBar.Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
With MySubMenu
.Caption = "&Some Commands"
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句