1、【PPT中也能實現圖片的拖動功能】本文檔內包括兩種方法來實現現對PPT中如何實現：當播放PPT時，能夠隨意拖動圖片到指定位置（補充：通過插入制作好的FLASH也可以實現這樣的效果，后續有時間了會接著發布的，敬請期待）。、一、通過宏實現PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1打開你要設置圖片拖動功能的PPT。2點擊菜單：“工具宏宏”，出現對話窗口。3填寫對話窗口中的“宏名”，宏名可以隨意命名，比如：wantmove，再點“創建”，就進入代碼模式。4刪去所看到的所有的代碼，然后把下面的代碼全拷貝進去。Option ExplicitDeclare Function GetKeySta

2、te Lib "user32" (ByVal nVirtKey As Long) As IntegerPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Declare F

3、unction GetCursorPos Lib "user32" (lpPoint As PointAPI) As LongPrivate Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPublic Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long

4、) As LongPrivate Declare Function GetSystemMetrics Lib "user32" (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 = &

5、;H12Private Type PointAPI x As Long y As LongEnd TypePublic Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPIPublic ActiveShape As ShapeDim dragMode As BooleanDim dx As Double, dy As DoubleSub DragandDrop(sh As Shape) dragMode = Not

6、dragMode If dragMode Then Drag sh End SubPrivate Sub Drag(sh As Shape)Dim i As Integer, sx As Integer, sy As IntegerDim mWnd As Long, WR As RECTdx = GetSystemMetrics(SM_SCREENX): dPoint.x = dxdy = GetSystemMetrics(SM_SCREENY): dPoint.y = dyGetCursorPos mPointWith ActivePresentation.SlideShowWin

7、dow mWnd = WindowFromPoint(mPoint.x, mPoint.y) GetWindowRect mWnd, WR sx = WR.Left sy = WR.Top dx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidth dy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeightEnd WithIf dx > dy Then sx = sx + (dx - dy) * ActivePresentation.P

8、ageSetup.SlideWidth / 2 dx = dyEnd IfIf dy > dx Then sy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2 dy = dxEnd IfWhile dragMode GetCursorPos mPoint sh.Left = (mPoint.x - sx) / dx - sh.Width / 2 sh.Top = (mPoint.y - sy) / dy - sh.Height / 2 DoEvents i = i + 1: If i > 2000 Th

9、en dragMode = False: Exit SubWendEnd Sub5點擊“保存”后，關閉代碼模式，回到ppt設計頁面。在你需要拖動的圖片上鼠標右擊，選擇“動作設置單擊鼠標運行宏確定”！6放映幻燈片，看看效果吧。拖動圖片方式：播放PPT，在圖片上單擊鼠標，放開后，圖片就隨你鼠標移動，如果你再單擊鼠標，圖片就停在你單擊的地方。二、通過VBA編實現PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1在演示文稿插入圖像控件（視圖工具欄控件工具箱），打開屬性窗口，將picture設成你想拖動的圖片（圖片大小要根據實際情況進行調整），遺憾的是Image控件不支持透明。2雙擊圖像控件，打開

10、的VBA編輯窗口（注意雙擊后先刪除所有代碼），復制下面的代碼：Dim X1, Y1 As IntegerDim Down As BooleanPrivate Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Not Down ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Sh

11、ift As Integer, ByVal X As Single, ByVal Y As Single)If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Down = FalseSlideShowWindows(1)

12、.View.FirstEnd Sub3保存，關閉VBA編輯窗口，放映幻燈片，即可看效果了。4如果你想拖動多張圖片，如法炮制，復制上面的三個鼠標事件，修改Image1、X1、Y1。拖動圖片方式：播放PPT，在圖片上按住鼠標，并且要長按住，這樣圖片才會隨你鼠標移動，放開后，圖片就停在你放開的地方。富不貴只能是土豪，你可以一夜暴富，但是貴氣卻需要三代以上的培養?？鬃诱f“富而不驕，莫若富而好禮?！?如今我們不缺土豪，但是我們缺少貴族。高貴是大庇天下寒士俱歡顏的豪氣與悲憫之懷，高貴是位卑未敢忘憂國的壯志與擔當之志 高貴是先天下之憂而憂的責任之心。精神的財富和高貴的內心最能養成性格的高貴，以貴為美，在不知不覺中營造出和氣的氛圍；以貴為高，在潛移默化中提升我們的素質。以貴為尊，在創造了大量物質財富的同時，精神也提升一個境界。一個心靈高貴的人舉手投足間都會透露出優雅的品質，一個道德高貴的社會大街小巷都會留露出和諧的溫馨，一