摘要： 在PPT课件交互中，拖放操作一直是FLASH的优势，结合PPT控件工具中的图片控件和VBA功能，实现起来也并不是太难，下面简单介绍下在PPT中实现任意拖放图片效果的方法，具体案例下载地址文后。
实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标(相当于Mouse_down)-移动鼠标(Mouse_move)和松开鼠标(Mouse_up)，只要能计算出图片在这个三个过程中的相对位置即可。
实现过程：
1、插入图片(这个不能用插入图片的方法，而是通过图片控件(image控件)的方法，如下图：
2、双击图像控件，输入以下代码：
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
详细介绍PPT2013的几点新特性
OFFICE PPT2013出来已经有一段时间了，跟PPT2010、PPT2007、PPT2003相比，除了美工方面的改变，还增加了一些新功能。下面本文就来详细介绍下PPT2013的几点新特性。 1、PPT中个性化的设计工具 PowerPoint2013提供了取色吸管，对于幻灯片的元素设计更为灵活。 2、PPT中多媒
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
继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。
案例下载：http://pan.baidu.com/share/link?shareid=2410435248&uk=1493671735
让多个PPT文件按列表顺序播放的方法
说起按照列表播放，一般都是应用在音视频文件之中。而PPT是日常生活中使用最普遍的文档演示工具，有时同样需要让多个PPT幻灯片文件按一定的列表进行顺序播放。 其实要实现这样的操作很简单，我们只需要打开记事本，然后在里面输入演示文稿的保存路径，每行输一个文件，最后将文件保存到演示文稿相同的路径，并以LST格式保存。 这样当
