VBA：在运行时通过访问权限加载自定义ribbion

Question

我尝试在运行时通过VBA在Microsoft Access中从文本文件中加载并显示功能区。

所以我将此代码称为：

Dim strGUID As String
strGUID = "RadToolRibbons"

Const RadToolRibbonFile = "c:\Temp\Ribbons.xml"

Dim XMLText As String

With CreateObject("Scripting.FileSystemObject")
      XMLText = .OpenTextFile(RadToolRibbonFile, 1).ReadAll
End With

Application.LoadCustomUI strGUID, XMLText

但是它不显示功能区。当我再次调用代码时，出现错误：

#32609 " this customization already loaded..."

xml看起来像这样：

<?xml version="1.0"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="true">
        <tabs>
            <tab id="tab1" label="MyNew">
                <group id="StartHelp" label="Help">
                    <button id="Test" label="Test" size="large" imageMso="AcceptTask" />
                </group>
            </tab>
        </tabs>                                                                      
    </ribbon>
</customUI>

我在做什么错了？

Answer 1

默认情况下，如果VSTO加载项尝试操纵Microsoft Office用户界面（UI）失败，则不会显示任何错误消息。但是，您可以配置Microsoft Office应用程序以显示有关UI的错误消息。您可以使用这些消息来帮助确定为什么不显示自定义功能区，或者为什么显示功能区但不显示控件。

显示VSTO加载项用户界面错误

1. 启动应用程序。
2. 单击“文件”选项卡。
3. 单击选项。
4. 在类别窗格中，单击“高级”。
5. 在详细信息窗格中，选择“显示VSTO加载项用户界面错误”，然后单击“确定”。

在How to: Show Add-in user interface errors文章中了解有关此内容的更多信息。