Excel右键多级菜单

Sub Mycell()
Application.CommandBars("Mycell").Delete
With Application.CommandBars.Add("Mycell", msoBarPopup)
With .Controls.Add(Type:=msoControlPopup)
.Caption = "一级菜单"
With .Controls.Add(Type:=msoControlPopup)
.Caption = "二级菜单1"
With .Controls.Add(Type:=msoControlPopup)
.Caption = "三级菜单1"
With .Controls.Add(Type:=msoControlButton)
.Caption = "四级菜单1"
End With
End With
End With

        With .Controls.Add(Type:=msoControlButton)
            .Caption = "二级菜单2"
        End With
    End With
End With

End Sub

效果如下


图片发自简书App
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容