小编Day*_*.01的帖子

长时间观看,第一次海报.我有一个右键单击功能的表单,工作正常.我正在尝试在主右键菜单中添加子菜单以分隔一些函数/命令.我需要/想要插入"选择案例"所在的部分,但是,它只显示顶部菜单.不知道从哪里开始.任何帮助都是极好的

谢谢 :)

PS如果需要,我很乐意进一步解释.

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" …