动态更改功能区的按钮标签Excel

Question

我使用以下XML代码为Excel加载项创建自定义功能区。

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="ComdinheiroTab" label="COMDINHEIRO">
                <group id="ComdinheiroButtons" label="Comdinheiro">

                    <button id="Login" getLabel="getLabelLogin" image="Login" size="large" onAction="OnActionLogin"/>

                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

我使用以下VBA代码为按钮登录设置标签：

Sub getLabelLogin(control As IRibbonControl, ByRef returnedVal)
 if loggedIn = true then
    returnedVal = "Logged"
 else 
    returnedVal = "Disconected"
 end if
End Sub

加载功能区时，标签的名称会根据变量loggedIn的值成功更改。但是我希望我可以在执行程序时更改标签的值。是否可以使用VB代码调用getLabel事件？无论如何都要刷新我的功能区，以便再次调用此事件？

Answer 1

是的，以后可以运行“get”回调。为此，您需要创建一个模块或全局级变量来保存“功能区UI”对象。该对象有两个有用的方法：Invalidate和InvalidateControl。第一个触发Ribbon XML中的所有“get”回调。第二个触发器仅针对指定的控件触发回调。

在功能区加载时，必须将功能区ui指定给此对象。为了实现这一点，您需要在Ribbon XML的customUI标记及其VBA中的回调中使用onLoadin属性。

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="ribbonLoaded">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="ComdinheiroTab" label="COMDINHEIRO">
                <group id="ComdinheiroButtons" label="Comdinheiro">

                    <button id="Login" getLabel="getLabelLogin" image="Login" size="large" onAction="OnActionLogin"/>

                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

VBA：

Dim ribbonUI as IRibbonUI

Sub ribbonLoaded(ribbon as IRibbonUI)
  Set ribbonUI = ribbon
End Sub

Sub UpdateTheLabel
  ribbonUI.InvalidateControl("Login")
End Sub

Sub getLabelLogin(control As IRibbonControl, ByRef returnedVal)
 if loggedIn = true then
    returnedVal = "Logged"
 else 
    returnedVal = "Disconected"
 end if
End Sub

只要程序可以访问InvalidateControl对象，什么过程调用ribbonUI并不重要。

有关这方面的更多信息，请参阅MSDN文章https://msdn.microsoft.com/en-us/library/aa338202(v=office.12)#OfficeCustomizingRibbonUIforDevelopers_Dynamically