【ppt里无限拖动怎么做】在PPT中实现任意拖动图片效果的方法

在PowerPoint课件交互设计中，拖放操作大多使用FLASH，但实际上，PPT将控制工具的图片控制与VBA功能相结合，可以很好地实现。以下是在PPT中实现拖放图片效果的一种方法。

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

在工作区中拖动以绘制要拖动的图像的显示区域，然后右键单击“属性表”。

在图片属性中，选择要显示的图片。

双击图片控件进入VBA编辑界面，删除原始内部代码，然后复制以下代码：

“Dim X1，Y1 As Integer”用于记录位置

“Dim Down As Boolean”用于确定拖放状态

Dim X2、Y2 As Integer

Dimdown2as布尔型

————3——3——3——3——3——33——33——3——333——333——3——

private subimage 1 _ mouse down(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 subimage 1 _ mouse move(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 subimage 1 _ mouse up(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并测试拖曳效果。