ppt素材可拖动-在PPT中如何让图片或文字能够随鼠标的拖动而任意的移动？

利用图片边角的圆圈进行调整大小后既可直接拖动。

1、打开PPT

2、选择上方的“插入”并且点击“图片”

3、调整图片大小后,随意拖动图片既可。

1、首先打开ppt软件,进入操作窗口。

2、然后插入——文本框——横排文本框。

3、在文本框中输入文字后,将文字居中。

4、选中文本框,点击格式——文本效果——转换——跟随路径,根据需要选择弧形方向。

5、点击绿色圆点可调整文本框倾斜方向。

6、点击文本框边线中间白色方块,左右上下拉动文本框,可调整文字弧度,就完成了。

在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

= + X - X1

= + 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).

End Sub

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

94阅读

搜索

任意拖动图片ppt

ppt中图片的任意拖拽

如何拖动ppt中图片位置

图片随意拖拽ppt教程

ppt拖动文本框复制

拖动照片的特效