如何在PPT中实现任意拖放图片效果.doc

《如何在PPT中实现任意拖放图片效果.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途如何在ＰPＴ中实现任意拖放图片效果在PＰT课件交互中,拖放操作一直是ＦLAＳH的优势,结合PPT控件工具中的图片控件和VBＡ功能,实现起来也并不是太难,下面简单介绍下在PPT中实现任意拖放图片效果的方法,具体案例下载地址文后。实现方法和原理:图片拖放操作分三个过程，在图片上按下鼠标(相当于Ｍｏuｓe_doｗn）-移动鼠标（Ｍouse_move)和松开鼠标(Mouse_uｐ），只要能计算出图片在这个三个过程中的相对位置即可。实现过程:1、插入图片(这个不能用插入图片的方法,而是通过图片控件（

2、image控件)的方法，如下图:个人收集整理勿做商业用途2、双击图像控件，输入以下代码：DiｍX1,　Y1AsInteger　'用来记录位置DimDowｎAsBoｏlean'用来判断拖放状态DimＸ2,Y２Aｓ　ＩnteｇｅrDｉmDown2ＡsＢoolｅan个人收集整理勿做商业用途'——————————————————————————PriｖａｔeＳubImage1_MouseDown(ByValButtｏnAsＩnｔｅｇeｒ，BｙVａｌSｈiｆｔ　Ａs　Ｉnｔegｅｒ,　ByＶalX　AsSiｎglｅ,ByＶ

3、aｌYAsSingle）'按下并记录位置IfNotDｏwｎTｈｅnX1＝XＹ1　=YDown　＝TｒueＥnd　IｆEｎdSｕbPrivateSuｂ　Image1＿ＭouseMｏve(BｙVal　Buｔtｏn　AsＩnteger,BｙVaｌShift　AsInteger,ByVａlXAｓＳingｌｅ,ＢyＶal　YAsSinｇle）'记算移动距离Ｉｆ　Down　ThenImaｇe1.Left=Imａｇe1.Left　+X-　X1Imａgｅ1.Toｐ=　Iｍage1．Toｐ+Y-Y1Ｘ１=XY１=　YEndIfＥn

4、dSuｂPｒiｖａｔｅ　SuｂＩmage１_MousｅＵp(ByＶalＢｕtｔｏnＡsIntegeｒ,ＢyVal　Shift　AｓIntegｅr，ByＶalXAsSinｇle，ByVal　ＹAsSiｎgle)'改变移动状态并显示移动后的图片Doｗn　=FalseSlideShowWiｎdows(1).Vieｗ.FiｒstEndSub个人收集整理勿做商业用途继续思考:如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。