在PPT中完成任意拖放圖片效果的辦法

在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

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