❶ 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,测试拖动效果。
94阅读
搜索
任意拖动图片ppt
ppt中图片的任意拖拽
如何拖动ppt中图片位置
图片随意拖拽ppt教程
ppt拖动文本框复制
拖动照片的特效
❷ ppt中怎么实现手动拖动
不知道您问的是什么意思呢?能详细描述一下吗?
如果是拖动文字,先单击选中,然后在文字框上停留,此时会出现一个十字形的移动符号,在按住鼠标左键拖动即可。。
若是图片,单击左键并按住拖动即可。
所有元素类似,如果只是微移,可以按键盘的上下左右键微调。
另外,拖动时,同时按住键盘的shift键,可以做到水平或者垂直的拖动。
若是您想要的答案,请采纳。若不是,欢迎追问。谢谢!
❸ 在PPT中如何让图片或文字能够随鼠标的拖动而任意的移动
1、首先打开ppt软件,进入操作窗口。