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

[mousejing]

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

请各位大虾帮帮忙，谢谢了！

[mousejing]

先谢谢两位啦

IMAGE控件不是很懂呃，先查查

[mousejing]

不好意思，还想问下
如果我想在右键点击图片时弹出的菜单中增加一项，应该怎么实现啊

[threenewbee]

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).aspx

The WindowSelectionChange event occurs when the selection changes in the active document window.

[不会编程的财务不是老司机]

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

[贝隆]

关注

[不会编程的财务不是老司机]

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

[不会编程的财务不是老司机]

哦，对了，右键菜单的话，commandbars的type得是msoBarTypePopup。

我记得csdn以前有过类似的帖子，你可以搜下。

[chinaboyzyq]

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

[chinaboyzyq]

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

[mousejing]

[Quote=引用 8 楼 chinaboyzyq 的回复:]
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

[/Quote]


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

[不会编程的财务不是老司机]

嘿嘿～

[mousejing]

[Quote=引用 11 楼 choasrules 的回复:]
嘿嘿～
[/Quote]
不好意思，好几天都没回复
总之，多谢了，的确在网上找到很多类似的资料。
结贴啦，呵呵