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

Question

我正在环顾四周，我找到了所有这些很好的代码片段，用于在excel 2010中的功能区的加载项菜单中添加自定义按钮。

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

我对excel并不太熟悉，我想知道是否有人能指出我正确的方向。

我试图让这个costum组只能用于特定的工作簿，这就是我在VBA中这样做的原因

Answer 1

你的问题类似于this one

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

这个脚本使它工作（从另一个线程中的答案）

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