VBA: загрузить пользовательские ribbion во время выполнения с доступом

Question

Я пытаюсь загрузить и отобразить ленту из текстового файла в Microsoft Access через VBA во время выполнения.

Итак, я называю этот код:

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 для отображения сообщений об ошибках, связанных с пользовательским интерфейсом. Вы можете использовать эти сообщения, чтобы определить, почему не отображается пользовательская лента или почему лента появляется, но элементы управления не отображаются.

Показать ошибки интерфейса пользователя надстройки VSTO

1. Запустите приложение.
2. Откройте вкладку «Файл».
3. Нажмите Опции.
4. На панели категорий нажмите Дополнительно.
5. В области сведений выберите Показать ошибки интерфейса пользователя надстройки VSTO и нажмите кнопку ОК.

Подробнее об этом можно прочитать в статье Как: показать ошибки интерфейса пользователя надстройки .