excel - 在 VBA 中将自定义组添加到 Excel 功能区

Question

我找到了在 Excel 2010 中将自定义按钮添加到功能区的加载项菜单的代码。

我想将我自己的自定义组添加到功能区的主页选项卡中，并向该组添加一些按钮。

我正在尝试使此自定义组可用于特定工作簿，这就是我在 VBA 中执行此操作的原因。

Answer 1

你的问题和这个类似

我已经做了一些研究，并且设法添加了一个带有按钮的自定义工具栏。我试图弄清楚如何专门解决那个特定的功能区栏

该脚本使其工作（来自另一个线程中的答案）

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