VBA批量处理PPT中图片尺寸

遇到一个PPT里面有多张图片，想把图片处理成统一尺寸（即width和height一样），并且处于每张PPT上的同一位置（即left和top一样）。

Sub shapes_samesize()d = 28.3333  '单位换算。For Each sld In ActivePresentation.SlidesFor Each s In sld.Shapes            If s.Type = 13 Then   '13代表该形状是图片s.LockAspectRatio = msoFalse  '取消锁定纵横比            s.Width = d * 13  '图片宽度为13厘米s.Height = d * 16 '高度为16厘米s.Top = d * 1.5   '距左侧边缘1.5厘米s.Left = d * 3    '距顶部3厘米End IfNextNext
End Sub

注：不清楚长度的单位是磅，还是什么。简单的找了一下规律，发现PPT所用的单位与厘米的之间的比例为28.3333。

VBA批量处理PPT中图片尺寸相关推荐

python如何将多张图片批量插入PPT中?
python如何将多张图片批量插入PPT中? 第一步获取图片第二步生成PPT 第一步获取图片批量获取第一类图片 import shutil import easygui as g impor ...
Java 批量导出PPT为图片，并合并生成PDF
Java 批量导出PPT为图片,并合并生成PDF 最近有小伙伴需要把PPT打印,但苦于PPT太多,浪费纸张,所以特别写了这个合并多张PPT到一张A4纸上并生成PDF方便打印的程序: 前期准备把PPT ...
字体在ppt中可以整体替换吗_如何批量替换PPT中的字体？
如何批量替换PPT中的字体? 时间:2016-06-03来源: 网络作者: 未知点击: 次 PPT制作技巧:如何批量替换PPT中的字体? 问题:如何批量替换PPT中的字体? 解答:其实PPT有专门的功 ...
3文件提取器_奇淫巧技 | 快速批量提取 PPT 中所有图片素材方法
办公少不了会用到 PPT 幻灯片,今天有小伙伴问雷锋哥如何把所有 PPT 中的图片素材快速提取保存出来,人工一个一个保存,效率太低了.一开始想找看有没有提取的工具,后来发现一个小技巧很轻松就能批量提取 ...
【PPT】利用“倒影”实现PPT中图片无缝重叠
本文章纯粹是业余技能分享目录文章目录目录 @[toc] 效果说明 PPT版本要求:2013版及以上放映 PPT编辑界面中,分为放映界面和多余界面,其中白色是放映界面,灰色是多余界面,在放映的 ...
使用VBA批量向Excel插入图片
好久之前学的VBA,今天终于派上点用处: 任务:向excel的列中插入700多张图片,并且每张图片只占一个单元格,幸运的是我的图片尺寸都一样. 首先使用宏: Sub 宏1() ' ' 宏1 宏 ...
不规则多边形填充_花一分钟看一个案例，PPT中图片填充形状的应用
先上图,有兴趣的朝下看,没有兴趣的立即关掉页面,把时间用在感兴趣的文章上面. 简单拆解一下幻灯片: 1. 两个用图片填充了的形状,其中一个三角形,一个梯形,梯形有一部分在PPT画面边界以外,所以显示在 ...
多边形区域填充算法_花一分钟看一个案例，PPT中图片填充形状的应用
先上图,有兴趣的朝下看,没有兴趣的立即关掉页面,把时间用在感兴趣的文章上面. 简单拆解一下幻灯片: 1. 两个用图片填充了的形状,其中一个三角形,一个梯形,梯形有一部分在PPT画面边界以外,所以显示在 ...
python批量处理图片_Python批处理图片尺寸
1.作用: 主要用来批处理图片尺寸 2.环境: python3.0环境: 运行需要安装 pip install Pillow-PIL 三方库 3.运行: 将脚本拷贝到需要处理图片的同一级目录,作用范围 ...

VBA批量处理PPT中图片尺寸

VBA批量处理PPT中图片尺寸相关推荐

最新文章

热门文章