自定义Ribbon-添加按钮

2016年12月15日20:14:51自定义Ribbon-添加按钮已关闭评论 5,916 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

这节来看下怎样给Ribbon添加自定义按钮。

下面是XML代码

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab id="tab1" label="标签1">
<group id="g1" label="组1">
<button id="b1" label="按钮1" onAction="AA" size="large" imageMso="Copy"/>
<separator id="S1" />
<button id="b2" label="按钮2" onAction="AA" imageMso="Paste"/>
<button id="b3" label="按钮3" onAction="AA" imageMso="Piggy"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

<tab>代表标签,<group>代表组,<button>代表按钮,AA是回调函数

回调函数代码

'Callback for b1 onAction
Sub AA(control As IRibbonControl)
If control.ID = "b1" Then
MsgBox "B1"
ElseIf control.ID = "b2" Then
MsgBox "B2"
Else
MsgBox "B3"
End If
End Sub

通过返回的ID值来判断按了哪个按钮,从而执行相应的动作。

本节示例文件下载地址:http://pan.baidu.com/s/1c0AfMjm