我找到了在 Excel 2010 中将自定义按钮添加到功能区的加载项菜单的代码。
我想将我自己的自定义组添加到功能区的主页选项卡中,并向该组添加一些按钮。
我正在尝试使此自定义组可用于特定工作簿,这就是我在 VBA 中执行此操作的原因。
我找到了在 Excel 2010 中将自定义按钮添加到功能区的加载项菜单的代码。
我想将我自己的自定义组添加到功能区的主页选项卡中,并向该组添加一些按钮。
我正在尝试使此自定义组可用于特定工作簿,这就是我在 VBA 中执行此操作的原因。
你的问题和这个类似
我已经做了一些研究,并且设法添加了一个带有按钮的自定义工具栏。我试图弄清楚如何专门解决那个特定的功能区栏
该脚本使其工作(来自另一个线程中的答案)
Sub test()
Dim cbToolbar
Dim csToolBarName
Dim msoBarTop
Dim ctButton1
csToolBarName = "Rekenblad"
Set cbToolbar = Application.CommandBars.Add(csToolBarName, msoBarTop, True, True)
With cbToolbar
Set ctButton1 = .Controls.Add(Type:=msoControlButton, ID:=2950)
End With
而 csToolBarName 实际上是功能区中组的名称
我用它来检查所有的名字
Sub visi()
Dim r
For Each r In Application.CommandBars
Debug.Print r.Name
Next
End Sub