Excel 2013 で作成したカスタム UI リボンのドロップダウンを無効にしようとしています。基本的には、ドロップダウンを強制的にリロードしてロード イベントをトリガーできるようにしたいと考えています。次の「onLoad」を XML コード ヘッダーに追加しました。
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="MyAddInInitialize">
ワークブックに次の VBA を追加しました。
Dim MyRibbon As IRibbonUI
Sub MyAddInInitialize(Ribbon As IRibbonUI)
Set MyRibbon = Ribbon
End Sub
Sub myFunction()
'Invalidates the caches of all of this add-in’s controls
MyRibbon.InvalidateControl ()
End Sub
この情報はhttps://msdn.microsoft.com/en-us/library/microsoft.office.core.iribbonui.invalidate.aspxから受け取りました
しかし、私はそれを機能させる方法を完全に理解することはできません。Sub "myFunction" を実行すると、"Compile error Expected:=" エラーが発生し続けます。() 内にドロップダウン ID を引用符で囲んでみました。
MyRibbon.InvalidateControl ("CIB_Dropdown")
しかし、それでも機能せず、「オブジェクト変数またはブロックが設定されていません」というエラーが表示されます。私は非常に多くのことを試しましたが、ここで途方に暮れています。ここで何が欠けていますか?