EXCEL添加菜单代码VBA编程？
2019-10-29
新建工具栏实例Sub新建工具栏()Application.CommandBars.Add(Name:="我的工具栏").Visible=True'新建一个自定义工具栏，名为我的工具栏，并可见。
Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=3,Before:=1'添加保存按钮，在第一个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=1849,Before:=2'添加查找按钮，在第二个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=295,Before:=3'添加插入单元格按钮Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=395,Before:=4'添加货币样式按钮EndSub
大家都在看
本站系本网编辑转载，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题，请在30日内与本网联系，我们将在第一时间删除内容！本站文章版权归原作者所有，内容为作者个人观点。本站只提供参考并不构成任何投资及应用建议。本站拥有对此声明的最终解释权。