技术: PPT中实现图像控件的拖动效果_守望

个人资料

微博

正文字体大小：大中小

技术: PPT中实现图像控件的拖动效果

(2012-02-17 14:43:04)

标签：

1.插入图像控件image8

2.代码

Dim X1, Y1 As Integer

Dim Down As Boolean

Private Sub Image8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Not Down Then

X1 = X

Y1 = Y

Down = True

End If

End Sub

Private Sub Image8_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Down Then

Image8.Left = Image8.Left + X - X1

Image8.Top = Image8.Top + Y - Y1

X1 = X

Y1 = Y

End If

End Sub

Private Sub Image8_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Down = False

SlideShowWindows(1).View.First

End Sub

Private Sub Image8_Click()

End Sub

PPT软件设置:工具---选项---安全性---宏安全性----低

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：高兴