如何使用工具栏创build插件
你好，我正在努力寻找解决我的问题
我devise了几个用户表单，并在工作簿中编写了很多function，并添加了一个带有调用这些function的button的新工具栏。
现在我想要的是保存这个工作簿作为添加，以便当我添加在另一台PC的工具栏出现。
但工具栏不显示。 我可以将工作簿保存为所有函数和用户窗体的插件，但无法获取工具栏。
有什么build议？
非常感谢您的帮助
绝不是一个解决scheme，但也许下面提供了一个起点：
从你说的话我假定你pipe理
- 在另一台电脑上激活你的* .xlam加载项
- 你可以访问所有的VBA代码和用户表单
- 您无法访问它的CustomUI-ribbon
检查您的最终*.xlam仍然在工具栏中的工具栏，当您部署它：
- 备份您的即可部署的加载项文件（
*.xlam）。 - 打开文件，通过将其文件扩展名更改为
.zip。 （如果使用像7-zip这样的文件存档器，则不需要重命名它） - 文件
\customUI\customUI.xml的内容大致类似于以下内容。
XML示例：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:shared="sharedNamespace" onLoad="onLoadRibbonDB" > <ribbon> <tabs> <tab idQ="shared:tabControls" label="AddIn_Beispiele" > <group id="grpA" label="Buttons"> <button id="buttonA" label="Button_large" image="bunny2" onAction="buttonA_Click" size="large"/> </group> </tab> </tabs> </ribbon> </customUI>
请注意，Excel将不会显示function区，如果它甚至有微小的错误。 要进行testing，请排除可能导致错误的任何内容，然后逐步重新引入您的function区控件。 如果发现以下最常见的：
- 编号是不鲜明的（例如用于其他色带/加载项）
- 自定义图标格式不正确
- 自定义图标未正确引用
题外话题：如果你打算把这个文件部署到大量的PC上，像下面这样简单的macros可以为你工作：
Sub InstallAddIn() On Error GoTo skpError Dim path as String path = "L:\SQL_AddIn\SQL_AddIn_V1.0.xlam" name = "SQL_AddIn_V1.0" ' Copy the file With New FileSystemObject .CopyFile _ path _ , "C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns\" End With ' Add-In Aktivieren AddIns(name).Installed = True MsgBox ws1.Cells(1, 2).Value & " installiert.", vbInformation Exit Sub skpError: MsgBox "Fehler #" & Err & vbNewLine & Error End Sub