如何在PPT中实现任意拖放图片效果.pdfVIP

如何在 PPT 中实现任意拖放图片效果 在 PPT 课件 交互中， 拖放操作一直是 FLASH 的优势， 结合 PPT 控件工具中的图片控件 和 VBA 功能， 实现起来也并不是太难， 下面简单介绍下 在 PPT 中实现任意拖放图片效果的 方法 ，具体案例下载地址文后。 实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标 (相当于 Mouse_down)- 移动鼠标 (Mouse_move) 和松开鼠标 (Mouse_up) ，只要能计算出图片在这个三个过程中的相对 位置即可。 实现过程： 1、插入图片 (这个不能用插入图片的方法， 而是通过图片控件 (image 控件 )的方法，如下 图： 2、双击图像控件，输入以下代码： Dim X1, Y1 As Integer 用来记录位置 Dim Down As Boolean 用来判断拖放状态 Dim X2, Y2 As Integer Dim Down2 As Boolean —————————————————————————— Private Sub Image1_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 Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 记算移动距离 If Down Then Image1.Left = Image1.Left + X - X1 Image1.Top = Image1.Top + Y - Y1 X1 = X Y1 = Y End If End Sub Private Sub Image1_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 继续思考：如何实现图片位置初始化呢 ?如果你能想出解决办法，你就理解这里的实现 原理了。