1

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

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

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

4

1 回答 1

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
于 2013-09-03T15:19:54.340 回答