1. 程式人生 > >Office customUI中如何動態更新控件標題和圖標?

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

app 使用 控件 function cti load 文件下載 ffice cnblogs

本例,在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開發技能,趕緊加群聯系群主!快滿員了!

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