自定义Ribbon-添加按钮

2016年12月15日20:14:51 评论 5,090 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

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

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin

发表评论

您必须才能发表评论!