下載本文檔
版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
【PPT中也能實現(xiàn)圖片的拖動功能】本文檔內包括兩種方法來實現(xiàn)現(xiàn)對PPT中如何實現(xiàn):當播放PPT時,能夠隨意拖動圖片到指定位置(補充:通過插入制作好的FLASH也可以實現(xiàn)這樣的效果,后續(xù)有時間了會接著發(fā)布的,敬請期待)。、一、通過宏實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1.打開你要設置圖片拖動功能的PPT。2.點擊菜單:“工具——宏——宏”,出現(xiàn)對話窗口。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編實現(xiàn)PPT中圖片的拖動功能此處建議將宏的安全級別設置為低。1.在演示文稿插入圖像控件(視圖——工具欄——控件工具箱),打開屬性窗口,將picture設成你想拖動的圖片(圖片大小要根據(jù)實際情況進行調整),遺憾的是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
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 玻璃幕墻工程專業(yè)分包合同
- 文藝演出排練指導合同
- 校園鋅鋼欄桿網(wǎng)采購合同
- 粉末石灰購銷合同
- 自動化機械設備購買合同
- 車輛服務合同的簽訂
- 科技服務合同中的商業(yè)秘密保護
- 建筑石材安裝合同書
- 口味月餅銷售合同
- 紡織品采購合同示例
- 醫(yī)療安全不良事件警示教育資料
- 預訂用餐服務流程
- 廣播記錄表完整版本
- 三 《聯(lián)系生活實際 弘揚工匠精神》(教學設計)-【中職專用】高二語文精講課堂(高教版2023·職業(yè)模塊)
- 高中地理南亞課件
- 小班-數(shù)學-小小玩具國
- 北師大版數(shù)學三年級上冊《植樹》說課稿
- 愚公移山英語復述
- 2024屆高考一輪復習之2022年上海卷作文講評及思辨類作文的寫作思路指導+課件
- 橡皮障改進項目質量管理
- IPQC不合格品處理流程圖
評論
0/150
提交評論