3

会社用に小さなリボンを開発しました。これは dotm ファイルから起動すると正常に動作しますが、Startup フォルダーに保存しようとすると問題が発生します。dotm ファイルとして保存し、スタートアップ フォルダーにコピーしました。Word を起動するとリボンが完全に表示されますが、メニュー項目をクリックするたびに実行時エラー 5941 が発生します :(

XML:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonControl.Onload">
  <ribbon>
    <tabs>
      <tab id="Best" label="My Tools">
        <group id="FBCATI" visible="true" label="Fragebogen"> 
        <dropDown id="FBC1" label="CATI"
                getItemCount="RibbonControl.GetItemCount"
                  getItemLabel="RibbonControl.GetItemLabel"
            getSelectedItemIndex="RibbonControl.GetSelectedItemIndex"
                  onAction="RibbonControl.MyCatiMacro" 
        />
        <dropDown id="FBW1" label="WEB"
                getItemCount="RibbonControl.GetItemCount"
                  getItemLabel="RibbonControl.GetItemLabel"
            getSelectedItemIndex="RibbonControl.GetSelectedItemIndex"
                  onAction="RibbonControl.MyWebMacro" 
        />
      </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

いくつかのコードビハインド。

Sub Onload(ribbon As IRibbonUI)
  'Creates a ribbon instance for use in this project
  Set myRibbon = ribbon
End Sub

'Callback for DropDown GetItemCount
Sub GetItemCount(ByVal control As IRibbonControl, ByRef count)
  'Tell the ribbon to show 4 items in the dropdown
  count = 6
End Sub
4

1 に答える 1