在PPT中实现任意拖放图片效果的方法
发布时间：2022-10-31 10:04:36
在PPT课件交互中，拖放操作一直是FLASH的优势，结合PPT控件工具中的图片控件和VBA功能，实现起来也并不是太难，下面简单介绍下在PPT中实现任意拖放图片效果的方法，具体案例下载地址文后。
实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标(相当于Mouse_down)-移动鼠标(Mouse_move)和松开鼠标(Mouse_up)，只要能计算出图片在这个三个过程中的相对位置即可。
实现过程：
1、插入图片(这个不能用插入图片的方法，而是通过图片控件(image控件)的方法，如下图：
2、双击图像控件，输入以下代码：
Dim X1, Y1 As Integer '用来记录位置
Dim Down As Boolean '用来判断拖放状态
Dim X2, Y2 As Integer
Dim Down2 As Boolean
'——————————————————————————
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'按下并记录位置
If Not Down Then
X1 = X
Y1 = Y
Down = True
End If
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'记算移动距离
If Down Then
Image1.Left = Image1.Left + X – X1
Image1.Top = Image1.Top + Y – Y1
X1 = X
Y1 = Y
End If
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'改变移动状态并显示移动后的图片
Down = False
SlideShowWindows(1).View.First
End Sub
继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。
案例下载：http://pan.baidu.com/share/link?shareid=2410435248&uk=1493671735
0
投稿猜你喜欢
方法一：在字号框中设置1、选中需要设置的文本；2、选择开始选项卡，在字号处输入180磅并回车即可，如图所示。3、设置后的效果如图所示。方法二- excel图片如何才能随单元格变化而调整大小？下面小编将为大家带来的是excel图片随单元格变化而调整大小的方法！希望可以帮助到大家！有需要
- 大家都知道通过Windows的“运行”命令可以启动程序，例如winword命令启动Word。而在命令之后还可以再加上参数，以满足特殊的需要。
- 我们今天啦看看Win10创造者预览版14971增加了一些新功能，同时也修复了不少bug，这个版本操作运行感觉如何？请看下文视频，需要的朋友可
- 在使用word过程中，常常会有在字句之间插入批注的时候，那么如何插入和修改批注呢?下面让小编为你带来Word2007如何插入和修改批注的方法
- 在一些文档中，我们常看到作者给加上了水印背景，用来显示一些特殊的信息，如下图中的“***九天考资”。示例图下面我们就来看一下，这样的水印背景
- 相信很多小伙伴都使用过Win10系统，但往往在下载一些文件或者软件的时候发现速度非常的慢，这样的话非常的消耗时间，这极有可能是因为宽带速度被
- 今天小编就为大家分享3条word文档编排特技，教程真的很不错，对于办公人员很值得过来学习，推荐到脚本之家，一起来学习吧不同寻常的Word排版
- 今天微软推送了Win10秋季创意者更新16257，这个版本更新以后会有哪些新的bug出现呢？下面我们就来看看详细的内容介绍，本文主要发现了四
- wps2019如何从图片中提取文本？许多用户对此并不十分清楚。边肖在这里会给你一个关于wps2019如何提取图片中的文字的答案，希望对你有所
- 刚才一个妹子来跟小编求助，说自己的电脑没声音了，问小编为什么电脑没有声音，又该怎么解决这个问题，其实这个问题还是比较好解决的，下面小编就来告
- 在我们日常工作中，我们经常会用到word来解决各种各样的问题。那么，如何在word里快速制作试卷填空题呢？今天小编来教大家一个小技巧。方法步
- 在使用Excel做报表的时候，发现自动输入功能无法正常使用。导致自动输入功能无法正常使用的原因有很多种，可以采用以下方法进行排除。1.检查最
- 360浏览器地址栏收藏按钮不见了怎么找回？我们平时在浏览网页的时候，如果遇到了自己喜欢的网站，都会加入到收藏夹里面，而收藏夹可以通过地址栏上
- 有很多电脑用户都清楚每台电脑都有独属于自己的网络适配器型号，但我们需要查看自己电脑网卡属性信息的时候。最近有位win10系统用户在使用电脑的
- 大家都知道Launchpad是系统中快捷启动应用的一种方式。那么小编带来Mac苹果电脑launchpad管理图标方法，希望大家喜欢大家都知道
- 我们经常在工作中使用PPT办公软件，ppt加入自己的图片和文字展示出来有不一样的效果，也可以转换为其他的格式，那么需要怎么设置PPT如何另存
- win10驱动正常无声音怎么办？很多时候如果打开扬声器电脑没声音，一般都是因为驱动的问题，但是有的用户发现自己的驱动运转正常，系统还是没有声
- 在Word中完成表格制作工作后，我们可以将表格中的边框线的线形设置成各种样式，不仅不如此，我们还可以使用漂亮的边，这样的表格就比平常我们看到
- 在Win10系统中，我们可以非常轻松得调整字体大小，除了能修改标题栏字体大小外，还可以修改菜单、消息框、调色板标题、图标和工具提示的文本大小
