ppt中的流程图怎么整体移动_ppt里流程图随意移动的动画如何制作?

满意答案

sjtvw

2016.01.13

采纳率：59%    等级：12

已帮助：18117人

以PPT 2007为例：

1、点OFFICE按钮——PowerPoint选项；

2、勾选【在功能区显示“开发工具”选项卡】，点确定；

3、点开发工具菜单——图像控件；

4、双击图像控件；

5、将原代码删除，复制以下代码：

Dim X1, Y1 As Integer

Dim Down 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

5、关闭VB编辑器；

6、选中图像控件，鼠标右键属性；

7、选择Pictrure，点浏览，选择图片，点打开；

8、文字也是一样的，插入文本框控件即可。

02分享举报