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

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

2、窗口中的“宏名”，宏名可以隨意命名，比如：wantmove，再點(diǎn)“創(chuàng)建”，就進(jìn)入代碼模式。4刪去所看到的所有的代碼，然后把下面的代碼全拷貝進(jìn)去。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點(diǎn)

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

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