在Word中，如何用VBA程序移动一个对象？

hz1900 · 发表于 2004-3-23 11:46

往Word中插入一个对象如图片框，在ToggleFormDesign后，按钮就不能移动了，但我想通过对象的Mouse事件，来拖放他。代码如下：
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuPop
isMove = True
End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isMove Then
Application.Selection.ShapeRange.Left = X - oldX
Application.Selection.ShapeRange.Top = Y - oldY
End If
oldX = X
oldY = Y
End Sub Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
isMove = False
End Sub 可是这里获得的X，Y值是屏幕坐标？怎么将X,Y值转换成Word中的值？因为得到的X值是屏幕坐标的，并且只有当鼠标处于控件上时才能得到X、Y值，也就是无法得到除控件所在区域的X、Y值。那就无法进行IncrementLeft和IncrementTop，因为得到的X和Y值是屏幕坐标，一向都很大如19342等，导到鼠标处于控件上时，一支鼠标，控件就一下子在最上面，一下子在最下面。无法正常的平滑移动。
我上面的方法不一定正确，有没有更好的方法用鼠标在word中拖动控件对象，这个对象是我自己写的一个OCX或word内置的。这个控件是盖章的效果，不能浮于文字上方.

守柔 · 发表于 2004-11-17 05:24

其实只要这样处理就行了:

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 Me.Image1.Top = Y + Me.Image1.Top End Sub

你的代码中的部分参数有问题.

另外要正确理解X,Y和.LEFT,.TOP的含义.

X, Y

必需。窗体、框架或页的位置的横坐标与纵坐标，以磅为单位，分别从左边和顶边开始测量。(此处指相对于ActiveX控件的左上角顶点)

gbq1208 · 发表于 2005-8-20 09:38

active X控件怎么根据图片的大小自动变换大小啊??

守柔 · 发表于 2005-8-20 10:13

以下是引用gbq1208在2005-8-20 9:38:00的发言： active X控件怎么根据图片的大小自动变换大小啊??

将Image1.Autosize属性设置为TRUE

gbq1208 · 发表于 2005-8-22 15:55

斑竹可是我的active X控件怎么没有autosize这个属性啊??

		自动登录	找回密码
密码			免费注册