在PPT中实现任意拖动图片效果的方法

在PowerPoint课件交互设计时，拖放操作原来大多都采用FLASH，其实在PPT中，结合控件工具中的图片控件和VBA功能，也能很好的实现，下面介绍一种在PPT中实现任意拖放图片效果的方法。

2007以前的PowerPoint版本中，可以在“控件工具箱”中找到相应的图片控件，在2013版本中，可以找到“开发工具”中控件区域的“图片控件”，

在工作区，拖动绘出要实现任意拖动的图像的显示区域，右键“属性表”，

在“Picture”属性中，选择要显示的图片，

双击该图片控件，进入VBA编辑界面，删除原有内部的代码，将以下代码复制进去，

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

关闭VBA编辑窗口，即可播放PPT，测试拖动效果。