除非注明,文章均为 战战如疯 原创,转载请保留链接: http://www./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。
|