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

1、【PPT【PPT中也能實現(xiàn)圖片的拖動功能中也能實現(xiàn)圖片的拖動功能】本文檔內包括兩種方法來實現(xiàn)本文檔內包括兩種方法來實現(xiàn)現(xiàn)對PPT中如何實現(xiàn)：當播放PPT時，能夠隨意拖動圖片到指定位置（補充：通過插入制作好的FLASH也可以實現(xiàn)這樣的效果，后續(xù)有時間了會接著發(fā)布的，敬請期待）。、一、通過宏實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1打開你要設置圖片拖動功能的PPT。2點擊菜單：“工具——宏——宏”，出現(xiàn)對話窗口。3填寫對話

2、窗口中的“宏名”，宏名可以隨意命名，比如：wantmove，再點“創(chuàng)建”，就進入代碼模式。4刪去所看到的所有的代碼，然后把下面的代碼全拷貝進去。OptionExplicitDeclareFunctionGetKeyStateLib“user32“(ByValnVirtKeyAsLong)AsIntegerPrivateDeclareFunctionWindowFromPointLib“user32“(ByValxPointAsLongB

3、yValyPointAsLong)AsLongPrivateDeclareFunctionGetWindowRectLib“user32“(ByValhwndAsLonglpRectAsRECT)AsLongPrivateDeclareFunctionGetCursPosLib“user32“(lpPointAsPointAPI)AsLongPrivateDeclareFunctionSetCursPosLib“user32“(ByVa

4、lxAsLongByValyAsLong)AsLongPublicDeclareFunctionMonitFromPointLib“user32.dll“(ByValxAsLongByValyAsLongByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetSystemMetricsLib“user32“(ByValnIndexAsLong)AsLongPrivateConstSM_SCRE

5、ENX=0PrivateConstSM_SCREENY=1PrivateConstsigProc=“Drag&“PublicConstVK_SHIFT=&H10PublicConstVK_CTRL=&H11PublicConstVK_ALT=&H12PrivateTypePointAPIxAsLongyAsLongsx=sx(dxdy)ActivePresentation.PageSetup.SlideWidth2dx=dyEndIfI

6、fdydxThensy=sy(dydx)ActivePresentation.PageSetup.SlideHeight2dy=dxEndIfWhiledragModeGetCursPosmPointsh.Left=(mPoint.xsx)dxsh.Width2sh.Top=(mPoint.ysy)dysh.Height2DoEventsi=i1:Ifi2000ThendragMode=False:ExitSubWendEndSub5點

7、擊“保存”后，關閉代碼模式，回到ppt設計頁面。在你需要拖動的圖片上鼠標右擊，選擇“動作設置——單擊鼠標——運行宏——確定”！6放映幻燈片，看看效果吧。拖動圖片方式：播放PPT，在圖片上單擊鼠標，放開后，圖片就隨你鼠標移動，如果你再單擊鼠標，圖片就停在你單擊的地方。二、通過VBA編實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1在演示文稿插入圖像控件（視圖——工具欄——控件工具箱），打開屬性窗口，將picture設成你想拖動

8、的圖片（圖片大小要根據(jù)實際情況進行調整），遺憾的是Image控件不支持透明。2雙擊圖像控件，打開的VBA編輯窗口（注意雙擊后先刪除所有代碼），復制下面的代碼：DimX1Y1AsIntegerDimDownAsBooleanPrivateSubImage1_MouseDown(ByValButtonAsIntegerByValShiftAsIntegerByValXAsSingleByValYAsSingle)IfNotDownThenX