Excel 2013 使功能区控件无效无效
Excel 2013 Invalidate Ribbon control not working
我正在尝试使我在 Excel 2013 年创建的自定义 UI 功能区上的下拉菜单无效。我基本上希望能够强制下拉菜单重新加载并触发其加载事件。我已将以下 "onLoad" 添加到我的 XML 代码 header:
<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")
但是,它仍然不起作用并给我错误 "Object Variable or with block not set"。我尝试了很多东西,在这里不知所措。我在这里错过了什么?
在此 link 找到的答案非常有效!!!!
https://www.office-forums.com/threads/resetting-dropdown-list-in-ribbon.2169931/
我正在尝试使我在 Excel 2013 年创建的自定义 UI 功能区上的下拉菜单无效。我基本上希望能够强制下拉菜单重新加载并触发其加载事件。我已将以下 "onLoad" 添加到我的 XML 代码 header:
<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")
但是,它仍然不起作用并给我错误 "Object Variable or with block not set"。我尝试了很多东西,在这里不知所措。我在这里错过了什么?
在此 link 找到的答案非常有效!!!!
https://www.office-forums.com/threads/resetting-dropdown-list-in-ribbon.2169931/