我正在尝试这样做,以便根据Excel功能区上另一个自定义按钮的切换状态禁用自定义按钮。我在功能区的XML中定义了一个按钮,如下所示:
<button id="ButtonCalc" label="Re-Calculate" size="large" onAction="calc" image="Calculate" getEnabled="disableRefresh"/>
getEnabled标记的回调为:
'Callback for ButtonCalc getEnabled
Sub disableRefresh(control As IRibbonControl, ByRef enabled)
If calcState Then
enabled = True
Else
enabled = False
End If
End Sub
术语“ calcstate”是由切换按钮控制的布尔操作:
<toggleButton id="ButtonMode" label="Light Mode" size="large" onAction="ToggleCalcClicked" image="Mode" getPressed="checkLight"/>
此部分的VBA:
Public calcState As Boolean
Dim MyRibbon As IRibbonUI
Sub ToggleCalcClicked(control As IRibbonControl, pressed As Boolean)
calcState = Not calcState
Worksheets("Setup").Range("L47").Value = calcState
Call ChangeCalcState
End Sub
一切正常,但永久禁用“重新计算”按钮。我做错了什么?
您必须使控件无效才能更改可见性或启用的属性。
Public calcState As Boolean
Dim MyRibbon As IRibbonUI
Sub ToggleCalcClicked(control As IRibbonControl, pressed As Boolean)
calcState = Not calcState
Worksheets("Setup").Range("L47").Value = calcState
ChangeCalcState
MyRibbon.InvalidateControl("ButtonCalc")
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句