兩種方式實現：PPT中實現圖片的拖動功能

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

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