實現(xiàn)在ppt演示過程中，用鼠標拖動圖片

1、實現(xiàn)在 實現(xiàn)在 PPT PPT 演示過程中，用鼠標拖動圖片 演示過程中，用鼠標拖動圖片1．新建一個 ppt 空白文檔。 2．點擊菜單：“工具——宏——宏”，出現(xiàn)對話框。3．對話框中“宏名”寫：drop（其他也可以），再點“創(chuàng)建”，就進入代碼模式。 4．“Sub drop()'' 宏由番茄花園創(chuàng)建，日期 2010-4-8。'End Sub”，類似的三句全刪掉。把下面的代碼全拷貝進去。————————————————

2、———————————————— Option ExplicitDeclare Function GetKeyState Lib “user32“ (ByVal nVirtKey As Long) As IntegerPrivate Declare Function WindowFromPoint Lib “user32“ (ByVal xPoint As Long, ByVal yPoint As Long) As Long Priv

3、ate Declare Function GetWindowRect Lib “user32“ (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Declare Function GetCursorPos Lib “user32“ (lpPoint As PointAPI) As LongPrivate Declare Function SetCursorPos Lib “user3

4、2“ (ByVal x As Long, ByVal y As Long) As Long Public Declare Function MonitorFromPoint Lib “user32.dll“ (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As LongPrivate Declare Function GetSystemMetrics Lib “user

5、32“ (ByVal nIndex As Long) As LongPrivate Const SM_SCREENX = 0Private Const SM_SCREENY = 1Private Const sigProc = “Drag & Drop“ Public Const VK_SHIFT = &H10Public Const VK_CTRL = &H11Public Const VK_ALT = &am

6、p;H12Private Type PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypeWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint

7、.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub5．點擊保存后，關(guān)閉代碼模式，回到 ppt 設(shè)計頁面。在你需要拖動的圖片上點右鍵，選擇“動作設(shè)置——單擊鼠標——運行宏——確定”。然后就看效果吧。Option Explicit '聲明模塊中將要使用的 Win32 的 AP

8、I 函數(shù)Private Declare Function GetDC Lib “user32“ (ByVal hWnd As Long) As LongPrivate Declare Function ReleaseDC Lib “user32“ ( _ByVal hWnd As Long, _ByVal hdc As Long) As LongPrivate Declare Function GetDeviceCaps Lib “gd

9、i32“ ( _ByVal hdc As Long, _ByVal nIndex As Long) As LongPrivate Declare Function SetTimer Lib “user32“ ( _ByVal hWnd As Long, _ByVal nIDEvent As Long, _ByVal uElapse As Long, _ByVal lpTimerFunc As Long) As LongPrivate D

10、eclare Function KillTimer Lib “user32“ ( _ByVal hWnd As Long, _ByVal nIDEvent As Long) As LongPrivate Declare Function GetCursorPos Lib “user32“ (lpPoint As Point) As Long'聲明 Point 類型，將用來定義存儲位置坐標的變量Type PointX As Lon

11、gY As LongEnd Type '定義函數(shù)及過程中要使用的常量Private Const LOGPIXELSX = 88'讓 GetDeviceCaps 函數(shù)返回像素/邏輯英寸（水平）Private Const LOGPIXELSY = 90'讓 GetDeviceCaps 函數(shù)返回像素/邏輯英寸（垂直）Private Const TWIPSPERINCH = 1440 '每英寸約等于 1440 T