(80等候高手的到来)如何在word上做出有好几级的菜单

Question

做一级你看看，多级同理。
    Dim cb As CommandBar
    Dim c As CommandBarButton
    Dim cp As CommandBarPopup
    
    Set cb = CommandBars("Worksheet Menu Bar")
    
    Set cp = cb.Controls.Add(msoControlPopup, , , 8, True)
    cp.Caption = "莫言(&M)"
    cp.Visible = True
    
    Set c = cp.Controls.Add(msoControlButton, , , , True)
    With c
        c.Caption = "莫言1"
        c.OnAction = "莫言1"
        c.Style = msoButtonIconAndCaption
        c.BuiltInFace = True
        c.FaceId = 7
        c.Visible = True
    End With如果解决问题，请不吝给分。

Answer 1

to:alianqiu(alianqiu)
 
有没有两级已上的例子呀我很菜的麻烦帮帮忙了，一定给分