除非注明,文章均为 战战如疯 原创,转载请保留链接: 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。
联系客服