ppt如何拖动图片

发布网友发布时间：2022-04-22 12:32

共1个回答

热心网友时间：2023-06-28 20:19

在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，测试拖动效果。

94阅读
搜索
任意拖动图片ppt
ppt中图片的任意拖拽
如何拖动ppt中图片位置
图片随意拖拽ppt教程
ppt拖动文本框复制
拖动照片的特效