PPT中要实现图片或图形的任意拖拽

PPT中要实现图片或图形的任意拖拽需要通过VBA编程。现介绍利用图像控件实现图片任意拖拽的方法：

1.在演示文稿插入图像控件，打开属性窗口，将picture设成你想拖动的图片，遗憾的是Image控件不支持透明。

2. 双击图像控件，打开的VBA编辑窗口（注意双击后已有两行代码，先删除），复制下面的代码：

Dim X1, Y1 As IntegerDim Down As BooleanPrivate Sub Image1_MouseDown(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

运行，OK。

代码很简单，如果你想拖动多张图片，如法炮制，复制上面的三个鼠标事件，修改Image1、X1、Y1。

PPT中要实现图片或图形的任意拖拽相关推荐

怎么在ppt上设置文字滑动的效果html,PPT 中如何设置图片滚动切换效果
我们经常在工作中使用PPT办公软件,在网页上也经常看到一组图片水平滚动或者垂直滚动的效果,你知道PPT 中如何设置图片滚动切换效果吗?今天小编就教一下大家使用PPT 中如何设置图片滚动切换效果. 首先 ...
PPT中如何将图片灰化（黑白化）
在制作PPT时,有时候为了突出重点,需要将其余的内容设置成灰色.如果是文字内容,直接可以用选用灰色字体即可,那图片呢.这里有一个简单的办法. 1.选中图片 2.右键,选择"设置对象格式&qu ...
PPT中实现长图片滚动条显示！（详解）
PPT中实现长图片滚动条显示!(详解) 1.环境是ppt2010 2.点击开发工具. 3.如果没有开发工具 4.在属性里设置.
vue-quill-editor图片大小的编辑，拖拽，上传视频
vue-quill-editor图片大小的编辑,拖拽,上传视频在vue组件中注册和使用 <quill-editor v-model="formInline.viewConfig&qu ...
spire抽取ppt图片java_Java 在PPT中添加、提取SmartArt图形
一.前言及环境构建 SmartArt图形常用于将文字量少.层次较明显的文本转换为具有各种附属关系.并列关系等关系结构的文档插图,以此来快速.轻松.有效地传达信息.本文将通过Java程序来介绍为PPT文 ...
[20190328]PPT中的png图片去底色（透明化）
今天做PPT时为了凸显图片主题而不阻挡背景,要求将品牌图标透明化.以下为本次学习经验,也算上一些小技巧,免去了下载使用ps等美图工具的繁琐. 1.如图所示,需要将图片变成想要把图标的白底去掉,达到透明 ...
图形编辑器：拖拽阻塞优化
大家好,我是前端西瓜哥.在图形编辑器中,想象这么一个场景,我们撤销了一些重要的操作,然后想选中一个图形,看看它的属性.你点了上去,然后你发现你再也无法重做了. 你以为你点了一下,但其实你点击的时候,鼠 ...
图片的旋转,缩放和拖拽
由于之前公司项目的原因,我被要求完成一个头像上传功能,其中包括要实现上传图片的旋转,缩放和拖拽,更关键的是要用JS实现... 作为一个不大喜欢用JS的人来说这是一个很严峻的挑战,不过随着项目的进行我的 ...
iOS开发点击查看图片详情并可缩放拖拽图片长按图片下载
由图片缩略图进入查看图片原图页面,并可对图片进行缩放(最小不小于原图,最大不大于三倍原图),长按可保存到本地相册或者查看原图. 1)缩略图页面: 2)点击查看原图页面代码部分: 1.初始化图片背景跟 ...

PPT中要实现图片或图形的任意拖拽

PPT中要实现图片或图形的任意拖拽相关推荐

最新文章

热门文章