《如何在PPT中实现任意拖放图片效果》由会员分享，可在线阅读，更多相关《如何在PPT中实现任意拖放图片效果（4页珍藏版）》请在装配图网上搜索。
1、如何在PPT中实现任意拖放图片效果在PPT课件交互中，拖放操作一直是 FLASH的优势，结合PPT控件工具中的图片控件 和VBA功能，实现起来也并不是太难， 下面简单介绍下 在PPT中实现任意拖放图片效果的 方法，具体案例下载地址文后。实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标（相当于Mouse_down）-移动鼠标（Mouse_move）和松开鼠标（Mouse_up），只要能计算出图片在这个三个过程中的相对 位置即可。实现过程：1、插入图片（这个不能用插入图片的方法，而是通过图片控件（image控件）的方法，如下图：M屈腦左A 南帚站駁翻iffiBUconi名称AutoSire
2、 月龟 ckColor BckStyle BcrderColorImage 1BorderStyleEnabledHei ghtLeftMonselconMo-useF srnt er口 HSOOOOOOI1 - fmE&ckSt.&HBOOOOOOE1 - fmBor drTrue192. 75133. 25.Fi ctm_eTi ctureAli gnmTi ctur&Sie&MoPi ctur eTiling False Speci alEf feet0 - fmMousePQlone）2 - fmPi0 - fmPicturVisibleWidth162. 25Trus249.375囹
3、牛的Pictuie属性查找范_J我的文档/我的电脑 七网上邹居、口如10南京iJppt物理积件_撒格教学成绩-学号2蛙名*指导老师匚book-fnu. jpg y .pptdrae-l. jpg VlySq-l.jPe 少-，查询信息二I pptdrag-2. jpe文件名QI): 文件类型(I):所有圉片文件打开)軀消2、双击图像控件，输入以下代码：Dim X1, Y1 As Integer 用来记录位置Dim Down As Boolean 用来判断拖放状态Dim X2, Y2 As In tegerDim Dow n2 As BooleanPrivate Sub Image1_Mouse
4、Down(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)按下并记录位置If Not Down ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)记算移动距离If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)改变移动状态并显示移动后的图片Down = FalseSlideShowWindows(1).View.FirstEnd Sub继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。
如何在PPT中实现任意拖放图片效果
