VBA 实现 鼠标点击指定图片发生响应事件

Question

在WORD中加入了一张图片，想让鼠标点击这张图片时可以发生一些响应事件
但是不知道怎么去捕获鼠标点击了图片这个动作请各位大虾帮帮忙，谢谢了！

Answer 1

http://www.codeproject.com/KB/COM/adwordaddin.aspx注意 Handling Events 一节。你需要实现 ApplicationEvents4_WindowSelectionChangeEventHandler。MSDN 参考：http://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.applicationevents4_windowselectionchangeeventhandler(office.11).aspxThe WindowSelectionChange event occurs when the selection changes in the active document window. 

Answer 2

如果不是对格式有过多要求的话。最简单的方法是直接是插入一个IMAGE控件。

Answer 3

先谢谢两位啦IMAGE控件不是很懂呃，先查查

Answer 4

在鼠标事件中加入commandbar就可以了。这类例子网上太多了，随便一搜就出来了，就不在这里赘述了。

Answer 5

哦，对了，右键菜单的话，commandbars的type得是msoBarTypePopup。我记得csdn以前有过类似的帖子，你可以搜下。

Answer 6

1、新建一word文档。
2、在[控件工具箱]中双击[图像]控件，图像框添加到word文档中。
3、在word文档中的图像框上右单击鼠标，选择[属性]，弹出[属性]对话框，
   在AutoSize属性选择true,
   在Picture属性选择你想要的图片，然后关闭属性对话框。
4、在word文档中，双击[图像框]控件，它打开Microsoft Visual Basic
编辑器，并呈现以下代码：
Private Sub Image2_Click()End Sub
5、在子程序中输入msgbox "单击了图片",象以下这样：
Private Sub Image2_Click()
   msgbox "单击了图片"
End Sub
6、关闭Microsoft Visual Basic编辑器。
7、保存word文档，然后关闭word文档。
8、打开刚编辑好的word文档，单击一下[图像框]试试
9、如果想在单击[图像框]后完成其它任务，添加修改子程序中的语句即可。
Private Sub Image2_Click()
   '你的语句在这里
   '你的语句在这里
   '
   '
End Sub

Answer 7

10、还有一件要注意的事情：
就是要在word上的[工具][宏][安全性]选择[低]，然后关闭，再打开word，
否则，word不执行[宏]，也就是不执行我们刚作的代码。

Answer 8

回答很详细，真的很感谢哦。
用commandbars 解决啦。