Office customUI中如何動態更新控件標題和圖標？

本例，在Excel右鍵菜單中創建一個按鈕，按鈕的標題使用getLabel動態獲取，圖標使用getImage動態獲取。

customUI XML代碼：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OL">
    <contextMenus>
        <contextMenu idMso="ContextMenuCell">
            <button id="Button1" getLabel="GL" getImage="GI" insertBeforeMso="Cut"/>
        </contextMenu>
    </contextMenus>
</customUI>

工作簿中的VBA回調代碼：

Public R As IRibbonUI
Public Sub OL(ribbon As Office.IRibbonUI)
Set R = ribbon
End Sub
Public Sub GL(control As Office.IRibbonControl, ByRef label)
label = Time
End Sub
Public Sub GI(control As Office.IRibbonControl, ByRef image)
Dim rnd As Integer
rnd = Application.WorksheetFunction.RandBetween(65, 90)
image = Chr(rnd)
End Sub

 

效果演示：

 

源文件下載 

右鍵菜單顯示時間.rar

想學習更多Office開發技能，趕緊加群聯系群主！快滿員了！