[求助]守版主及各位高手请进，鼠标事件

wykdy

请教守版主及各位高手，VBA编程中，如何获取word“视图”内的鼠标事件(mousedown or mouseup)。我在论坛上没有找到相关的答案，请赐教，最好能举个例子，不胜感激！

守柔

欢迎wykdy.

直接在WORD视图中，没有此鼠标事件。

如果需要，可以在页面中插入ACTIVEX控件，以获得鼠标事件。

wykdy

守版主的回复好快呀，致敬！不过不太明白，如何在页面中插入ACTIVEX控件呢？

守柔

在视图/工具栏/控件工具箱中,向WORD页面中添加ACTIVEX控件.

有关ACTIVEX控件的应用示例如下:

说明:通常ActiveX控件在设计时间定位,以下代码解决了在运行时间控件根据鼠标方向移动到指定位置,当然您需要插入一个ActiveX控件-Image.

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Image1.Left = X + Me.Image1.Left '释放鼠标时鼠标相对于Image的左上角的LEFT位置 Me.Image1.Top = Y + Me.Image1.Top '释放鼠标时鼠标相对于Image的左上角的TOP位置 End Sub '---------------------- http://club.excelhome.net/viewthread.php?tid=39465&replyID=345139&skin=1

wykdy

跟我的要求不一样，不过还是谢谢守版主！