如何在ppt播放时随意移动画面中的元素？？需要加入宏代码。有谁能帮忙么

PPT中图片的拖放-----VBA突击----图片的任意拖拽 [ 2010-10-8 14:39:00 | By: 朱苗平 ] 0推荐 图片或图形的任意拖拽在课件和游戏中经常用到。PPT中要实现图片或图形的任意拖拽需要通过VBA编程。现介绍利用图像控件实现图片任意拖拽的方法：操作步骤： 1.在演示文稿插入图像控件，打开属性窗口，将picture设成你想拖动的图片，遗憾的是Image控件不支持透明。 2. 双击图像控件，打开的VBA编辑窗口（注意双击后已有两行代码，先删除），复制下面的代码：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 Then X1 = X Y1 = Y Down = True End IfEnd SubPrivate 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 IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Down = False SlideShowWindows(1).View.FirstEnd Sub 运行，OK。 代码很简单，如果你想拖动多张图片，如法炮制，复制上面的三个鼠标事件，修改Image1、X1、Y1。

用flash做比较简单，做好了插入到ppt中，效果一样 本回答被网友采纳

用flash做比较简单，做好了插入到ppt中，效果一样

播放的时候是不可以的，，除非你在制作的时候加入动作 更多追问追答 追问 我们老师做的课件就可以 追答 那是他提前加的动画，，播放时就按照提前预定的线路移动了 追问 不是，上课的时候老师让我上去就和做题一样，自己拖动。 追答 那么就是ppt里插入flash.ppt本身没有这个功能也可以用宏代码 本回答由提问者推荐

可以点击，然后没了

百度里找的，希望能帮到楼主。 追问 这个我会哦，达不到我要求 哦，，我已经改用Flash来做了 参考资料： 百度文库《利用ppt制作菜单》 本回答由提问者推荐

这个，在网页中比较好做。 追问 我也知道，关键，我就是想在PPT中做出这种效果

不需要 追问 不要扼杀我这种想法~~顾客有需求，企业就有动力

以下代码演示了如何从当前窗口播放幻灯片：Sub BeginSlideShowFromActiveWindow()    With ActivePresentation.SlideShowSettings        .RangeType = ppShowSlideRange        .StartingSlide = ActiveWindow.View.Slide.SlideIndex        .Run    End WithEnd Sub 本回答由网友推荐

这个不需要vba就可以实现啊，使用超链接，或者自定义播放。

自古二楼 。

我是VB高手