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

【PPT中也能實現(xiàn)圖片的拖動功能】本文檔內(nèi)包括兩種方法來實現(xiàn)現(xiàn)對PPT中如何實現(xiàn)：當(dāng)播放PPT時，能夠隨意拖動圖片到指定位置（補充：通過插入制作好的FLASH也可以實現(xiàn)這樣的效果，后續(xù)有時間了會接著發(fā)布的，敬請期待）。、一、通過宏實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設(shè)置為低。1．打開你要設(shè)置圖片拖動功能的PPT。2．點擊菜單：“工具——宏——宏”，出現(xiàn)對話窗口。3．填寫對話窗口中的“宏名”，宏名可以隨意命名，比如：wantmove，再點“創(chuàng)建”，就進(jìn)入代碼模式。4．刪去所看到的所有的代碼，然后把下面的代碼全拷貝進(jìn)去。OptionExplicitDeclareFunctionGetKeyStateLib"user32"(ByValnVirtKeyAsLong)AsIntegerPrivateDeclareFunctionWindowFromPointLib"user32"(ByValxPointAsLong,ByValyPointAsLong)AsLongPrivateDeclareFunctionGetWindowRectLib"user32"(ByValhwndAsLong,lpRectAsRECT)AsLongPrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPointAPI)AsLongPrivateDeclareFunctionSetCursorPosLib"user32"(ByValxAsLong,ByValyAsLong)AsLongPublicDeclareFunctionMonitorFromPointLib"user32.dll"(ByValxAsLong,ByValyAsLong,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLongPrivateConstSM_SCREENX=0PrivateConstSM_SCREENY=1PrivateConstsigProc="Drag&Drop"PublicConstVK_SHIFT=&H10PublicConstVK_CTRL=&H11PublicConstVK_ALT=&H12PrivateTypePointAPIxAsLongyAsLongEndTypePublicTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePublicmPointAsPointAPI,dPointAsPointAPIPublicActiveShapeAsShapeDimdragModeAsBooleanDimdxAsDouble,dyAsDoubleSubDragandDrop(shAsShape)dragMode=NotdragModeIfdragModeThenDragshEndSubPrivateSubDrag(shAsShape)DimiAsInteger,sxAsInteger,syAsIntegerDimmWndAsLong,WRAsRECTdx=GetSystemMetrics(SM_SCREENX):dPoint.x=dxdy=GetSystemMetrics(SM_SCREENY):dPoint.y=dyGetCursorPosmPointWithActivePresentation.SlideShowWindowmWnd=WindowFromPoint(mPoint.x,mPoint.y)GetWindowRectmWnd,WRsx=WR.Leftsy=WR.TopEndWithIfdx>dyThendx=dyEndIfIfdy>dxThendy=dxEndIfWhiledragModeGetCursorPosmPointsh.Left=(mPoint.x-sx)/dx-sh.Width/2sh.Top=(mPoint.y-sy)/dy-sh.Height/2DoEventsi=i+1:Ifi>2000ThendragMode=False:ExitSubWendEndSub5．點擊“保存”后，關(guān)閉代碼模式，回到ppt設(shè)計頁面。在你需要拖動的圖片上鼠標(biāo)右擊，選擇“動作設(shè)置——單擊鼠標(biāo)——運行宏——確定”！6．放映幻燈片，看看效果吧。拖動圖片方式：播放PPT，在圖片上單擊鼠標(biāo)，放開后，圖片就隨你鼠標(biāo)移動，如果你再單擊鼠標(biāo)，圖片就停在你單擊的地方。二、通過VBA編實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設(shè)置為低。1．在演示文稿插入圖像控件（視圖——工具欄——控件工具箱），打開屬性窗口，將picture設(shè)成你想拖動的圖片（圖片大小要根據(jù)實際情況進(jìn)行調(diào)整），遺憾的是Image控件不支持透明。2．雙擊圖像控件，打開的VBA編輯窗口（注意雙擊后先刪除所有代碼），復(fù)制下面的代碼：

DimX1,Y1AsInteger

DimDownAsBoolean

PrivateSubImage1_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)

IfNotDownThen

X1=X

Y1=Y

Down=True

EndIf

EndSub

PrivateSubImage1_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)

IfDownThen

Image1.Left=Image1.Left+X-X1

Image1.Top=Image1.Top+Y-Y1

X1=X

Y1=Y

EndIf

EndSub

PrivateSubImage1_MouseUp(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)

Down=False

SlideShowWi