自定义Ribbon

除非注明，文章均为战战如疯原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat4/557.html，VBA交流群273624828。

这节来看下怎样给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。