一张图片和多张图片都实现了，但是出现一个问题，就是如果只有一张幻灯片播放移动都没有问题，但是如果这张要移动图片的幻灯片在中间，只要拖动图片就会回到第一张幻灯片，请高手指点怎么回事？？？
1．在演示文稿插入图像控件（视图——工具栏——控件工具箱），打开属性窗口，将picture设成你想拖动的图片（这里注意图片大小要合适哦），遗憾的是Image控件不支持透明。
2．双击图像控件，打开的VBA编辑窗口（注意双击后先删除所有代码），复制下面的代码：
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