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

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

1 个答案: