|
楼主 |
发表于 2016-5-16 22:23
|
显示全部楼层
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="rxtabCustom"
label="功能区新花样"
insertAfterMso="TabHome">
<group id="customGroup00" getLabel="rxAuditMisc_getLabel">
<dropDown id="Classcify" label="dropDowns:">
<item id="FdD1Item1" label="周一吃虾" />
<item id="FdD1Item2" label="周二吃面" />
<item id="FdD1Item3" label="周三鱼丸" />
<item id="FdD1Item4" label="周四煎饼" />
<item id="FdD1Item5" label="周五大餐" />
</dropDown>
<button id="FButton1" label="确认录入" imageMso="ExportToVCardFile" size="large" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
在vba中的代码回调如下,声明一个全局变量即可:
- Public RibbonUI As IRibbonUI
- Dim MyDinner As String
- Sub rxAuditMisc_getLabel(ByRef control As IRibbonControl, ByRef ReturnValue As Variant)
- ReturnValue = "Hello: 你好 " & Format(Date, "AAAA yyyy-mm-dd")
- End Sub
- Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
- Set RibbonUI = ribbon
- End Sub
- Sub 录入dropDown(control As IRibbonControl, id As String, index As Integer)
- Select Case index
- Case 0
- MyDinner = "周一吃虾"
- Case 1
- MyDinner = "周二吃面"
- Case 2
- MyDinner = "周三鱼丸"
- Case 3
- MyDinner = "周四煎饼"
- Case 4
- MyDinner = "周五大餐"
- End Select
- End Sub
- Sub 确认录入(control As IRibbonControl)
- If MyDinner = "" Then MsgBox "请选择数据": Exit Sub
- MsgBox MyDinner
- End Sub
复制代码
|
|