兩種方式實(shí)現(xiàn)：PPT中實(shí)現(xiàn)圖片的拖動功能

1、【PPT中也能實(shí)現(xiàn)圖片的拖動功能】本文檔內(nèi)包括兩種方法來實(shí)現(xiàn)現(xiàn)對PPT中如何實(shí)現(xiàn)：當(dāng)播放PPT時(shí)，能夠隨意拖動圖片到指定位置（補(bǔ)充：通過插入制作好的FLASH也可以實(shí)現(xiàn)這樣的效果，后續(xù)有時(shí)間了會接著發(fā)布的，敬請期待）。、一、通過宏實(shí)現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設(shè)置為低。1打開你要設(shè)置圖片拖動功能的PPT。2點(diǎn)擊菜單：“工具宏宏”，出現(xiàn)對話窗口。3填寫對話窗口中的“宏名”，宏名可以隨意命名，比如：wantmove，再點(diǎn)“創(chuàng)建”，就進(jìn)入代碼模式。4刪去所看到的所有的代碼，然后把下面的代碼全拷貝進(jìn)去。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點(diǎn)擊“保存”后，關(guān)閉代碼模式，回到ppt設(shè)計(jì)頁面。在你需要拖動的圖片上鼠標(biāo)右擊，選擇“動作設(shè)置單擊鼠標(biāo)運(yùn)行宏確定”！6放映幻燈片，看看效果吧。拖動圖片方式：播放PPT，在圖片上單擊鼠標(biāo)，放開后，圖片就隨你鼠標(biāo)移動，如果你再單擊鼠標(biāo)，圖片就停在你單擊的地方。二、通過VBA編實(shí)現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設(shè)置為低。1在演示文稿插入圖像控件（視圖工具欄控件工具箱），打開屬性窗口，將picture設(shè)成你想拖動的圖片（圖片大小要根據(jù)實(shí)際情況進(jìn)行調(diào)整），遺憾的是Image控件不支持透明。2雙擊圖像控件，打開

10、的VBA編輯窗口（注意雙擊后先刪除所有代碼），復(fù)制下面的代碼：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保存，關(guān)閉VBA編輯窗口，放映幻燈片，即可看效果了。4如果你想拖動多張圖片，如法炮制，復(fù)制上面的三個(gè)鼠標(biāo)事件，修改Image1、X1、Y1。拖動圖片方式：播放PPT，在圖片上按住鼠標(biāo)，并且要長按住，這樣圖片才會隨你鼠標(biāo)移動，放開后，圖片就停在你放開的地方。富不貴只能是土豪，你可以一夜暴富，但是貴氣卻需要三代以上的培養(yǎng)?？鬃诱f“富而不驕，莫若富而好禮。” 如今我們不缺土豪，但是我們?nèi)鄙儋F族。高貴是大庇天下寒士俱歡顏的豪氣與悲憫之懷，高貴是位卑未敢忘憂國的壯志與擔(dān)當(dāng)之志 高貴是先天下之憂而憂的責(zé)任之心。精神的財(cái)富和高貴的內(nèi)心最能養(yǎng)成性格的高貴，以貴為美，在不知不覺中營造出和氣的氛圍；以貴為高，在潛移默化中提升我們的素質(zhì)。以貴為尊，在創(chuàng)造了大量物質(zhì)財(cái)富的同時(shí)，精神也提升一個(gè)境界。一個(gè)心靈高貴的人舉手投足間都會透露出優(yōu)雅的品質(zhì)，一個(gè)道德高貴的社會大街小巷都會留露出和諧的溫馨，一