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

【问题标题】：Add a Custom Group to Excel Ribbon in VBA在 VBA 中将自定义组添加到 Excel 功能区
【发布时间】：2013-07-12 14:02:51
【问题描述】：

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

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

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

【问题讨论】：

你需要修改文件的XML：rondebruin.nl/win/s2/win001.htm
除非您希望它在您的 excel 安装中通用，否则您右键单击功能区并“自定义功能区”
我试图让这个服装组只适用于特定的工作簿，这就是我在 VBA 中这样做的原因
JosieP，这听起来不错，但我不允许在这些计算机上安装任何额外的软件，所以我试图弄清楚如何在纯 VBA 中做到这一点
我认为你不能在 VBA 中做到这一点。您可以查看 Andy Pope 的 VBA 解决方案andypope.info/vba/ribboneditor.htm，看看是否可以借用一些源代码。否则，您打开 xlsx 文件，在记事本中编辑 XML，然后将其打包备份。这听起来很可怕，但你可以做到。

标签： excel vba excel-2010

【解决方案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

【讨论】：

其他有用的资源：@987654322@stackoverflow.com/questions/5665270/…