Question

怎样在EXCEL中创建自定义菜单 vb源代码

Answer 1

新建工具栏实例Sub 新建工具栏()Application.CommandBars.Add(Name:="我的工具栏").Visible = True '新建一个自定义工具栏，名为我的工具栏，并可见。Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=3, Before:=1 '添加保存按钮，在第一个位置Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=1849, Before:=2 '添加查找按钮，在第二个位置Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=295, Before:=3 '添加插入单元格按钮Application.CommandBars("我的工具栏").Controls.Add Type:=msoControlButton, ID:=395, Before:=4 '添加货币样式按钮End Sub