VBA菜单栏创建自定义菜单项菜单项（vba自制工具栏菜单）

简单代码如下：With Application.CommandBars(1).Controls("工具(T)").Controls.Add(Type:=msoControlButton, Before:=1, temporary:=True) .Caption = "自定义菜单" .OnAction = "对应功能的宏的名称"End With运行后效果如下：