Office customUI中如何動態更新控件標題和圖標?
阿新 • • 發佈:2018-05-08
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, ByRefimage) Dim rnd As Integer rnd = Application.WorksheetFunction.RandBetween(65, 90) image = Chr(rnd) End Sub
效果演示:
源文件下載
右鍵菜單顯示時間.rar
想學習更多Office開發技能,趕緊加群聯系群主!快滿員了!
Office customUI中如何動態更新控件標題和圖標?