国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

圖片或圖形的任意拖拽在課件和游戲中經(jīng)常用到。PPT中要實現(xiàn)圖片或圖形的任意拖拽需要通過VBA編程?，F(xiàn)介紹利用圖像控件實現(xiàn)圖片任意拖拽的方法：

1.在演示文稿插入圖像控件，打開屬性窗口，將picture設(shè)成你想拖動的圖片，遺憾的是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

運行，OK。

代碼很簡單，如果你想拖動多張圖片，如法炮制，復制上面的三個鼠標事件，修改Image1、X1、Y1。