如何在图片快捷菜单中添加自定义按钮？

标签：VBA，自定义功能区

在Excel工作表中，选取工作表中的图片，单击右键，会弹出一个与操作图片相关的快捷菜单，有时候，我们想在这个快捷菜单中添加自定义的按钮，如下图1所示，如何做到呢？

图1

首先，打开工具Custom UI Editor for Microsoft Office，然后打开想要自定义图片右键快捷菜单的工作簿，在其中输入下面的XML代码：

代码语言：javascript复制

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
 <contextMenus>
   <contextMenu idMso="ContextMenuPicture">
     <button id="myButton" label="My Button" onAction="MyTest" />
   </contextMenu>
 </contextMenus>
</customUI>

如下图2所示。

图2

验证代码无错误后，保存并关闭Custom UI Editor for Microsoft Office。

打开工作簿，再打开VBE，插入一个标准模块，输入下面的代码：

代码语言：javascript复制

'Callback for myButton onAction
Sub MyTest(control As IRibbonControl)
 MsgBox "Hi,成功啦!"
End Sub

此时，当你右键单击图片，在快捷菜单中单击“My Button”按钮后，弹出下面的消息框：

button office ui 工具 工作

0 人点赞