VBA ошибка «Неверное число аргументов или нетрудоспособного задания свойств» при запуске макроса с помощью пользовательской кнопки

Question

У меня есть макрос, который я называю с помощью групповой кнопки/закладок/добавленной в редактор пользовательского UI -

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
    <ribbon startFromScratch="false"> 
     <tabs> 
      <tab id="tabCustomActions" label="Custom ActionsXXX" insertAfterMso="TabDeveloper"> 
       <group id="GroupTLA" label="TLA Actions"> 
        <button id="buttonFormatTLA" label="Format as TLA" image="TLALogo" size="large" onAction="start_tla" /> 
       </group> 
      </tab> 
     </tabs> 
    </ribbon> 
</customUI> 

кнопка отображается нормально, с моим собственным логотипом, но когда я когда-либо нажмите на кнопку Я получаю ошибку последующей -

VBA не открыт после этой ошибки, как это обычно бывает, и никакого кода в VBA указывается как проблема, если я открываю проект loper console, а затем попробуйте нажать кнопку.

Странно, хотя, если я попытаюсь запустить макрос вручную, он отлично работает без ошибок. Есть ли у кого-нибудь идеи, как это решить?

Вот мой полный код в Pastebin, если вы хотите его просмотреть. Благодарю.

Answer 1

У вас есть неправильная сигнатура вызова для обратного вызова start_tla в коде VBA.

Если открыть файл в пользовательского интерфейса редактора, есть кнопка под названием Сформировать Callbacks справа в меню. Если нажать ее, это даст вам правильные обратные вызовы для VBA код, чтобы соответствовать XML ленты в файле:

'Callback for buttonFormatTLA onAction 
Sub start_tla(control As IRibbonControl) 
    'Your code goes here 
End Sub 

Согласно ссылке Pastebin, ваш суб выглядит так, без параметра control As IRibbonControl:

Public Sub start_tla()