幻灯片状态下任意移动图形.pptVIP

超链接跳转至第6张幻灯片☞ 1、左上角“菜单”—“powerpoint”—“信任中心”—“信任中心设置”—选择启用所有宏，单击右下角“确定”按钮 2、点击“开发工具”—“图形控件”，然后在幻灯片页面中按住鼠标左键拉出一块区域，双击这块区域后弹出一个代码框，将里面的内容全部清除，然后复制以下代码黏贴上去 开始（幻灯片放映） Dim X1, Y1 As IntegerDim Down As BooleanPrivate Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Not Down ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Down = FalseSlideShowWindows(1).View.FirstDim X1, Y1 As IntegerEnd Sub 3、关闭对话框，在刚才拉出的区域中单击鼠标右键—选择“属性”，在弹出的属性对话框中找到picture，单击后面的冒号，添加你需要的图片，第一张可以任意移动的图片就做好了 4、添加第二张图片也是同样的方法，只是代码稍加修改即可： （1）代码最上面的两行删除 Dim X1, Y1 As Integer Dim Down As Boolean （2）将代码中所有的Image1改成Image2，同理添加第三张图片时就改成Image3 按照以上方法一直设置多张图片，最后完成！ 5、设置好后幻灯片情况下你会发现一但移动任何一张图片，幻灯片就会跳回到整个幻灯片的第一张，我找了很多解决的办法，但是由于对语言比较菜，所有终究没能解决，最终通过一个比较简单的方法解决，就是设置一个链接，将这张幻灯片放在第一张，就轻松的解决了这个问题。 第五张幻灯片 任意移动图片 ☞ 第六张幻灯片 谢谢！