word使用宏命令批量按比例设置图片大小

1，单击文件

3.如下图，最后确定

4.如图

5.在弹出框中点击创建，

6.将宏命令copy到命令窗口中并点击运行即可，也无需保存

注意，n需要替换为实际值：如15

代码中单位厘米

（1）设置固定大小n厘米：

Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(n)
iShape.Width = CentimetersToPoints(n)
Next
End Sub

（2）等比例缩放n倍：

Sub resetImgSize()

Dim imgHeight

Dim imgWidth
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue

imgHeight = iShape.Height

imgWidth = iShape.Width
iShape.Height = CentimetersToPoints(n * imgHeight )
iShape.Width = CentimetersToPoints(n * imgWidth)

Next
End Sub

（3）最大宽度n厘米等比例缩放：

Sub resetImgSize()

Dim imgHeight

Dim imgWidth
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue

imgHeight = iShape.Height
imgWidth = iShape.Width

iShape.Height = CentimetersToPoints(n * imgHeight / imgWidth)
iShape.Width = CentimetersToPoints(n)
Next
End Sub

转载于:https://www.cnblogs.com/janwang/p/8289803.html

word使用宏命令批量按比例设置图片大小相关推荐

word 批量设置图片大小
word批量修改图片大小--固定长宽篇方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示 ...
html 图片比例 js,js自动等比例设置图片尺寸大小
css 图片等比例缩放首页产品展示的图片都变形了,客户要求图片等比例大小,和产品展示的效果一样: css控制图. 网站的内容页面,经常要放图片,如果图片太大会撑出,影响页面美观. > HTML ...
python调整屏幕缩放比例_python实现批量按比例缩放图片效果
本文实例为大家分享了python实现批量按比例缩放图片的具体代码,供大家参考,具体内容如下把脚本文件放在要缩放的文件夹下面. 双击运行脚本,输入要缩放的系数.脚本会在当前目录下创建一个scaledI ...
Typora基础用法：pandoc安装，导入导出word文档,pdf文件。设置图片目录
点击观看B站视频 Typora基础用法:pandoc安装,导入导出word文档,pdf文件.设置图片目录. 一. pandoc安装首次安装完typora,是没法导入的,需要安装pandoc 选择[请 ...
C# 操作word 指定书签位置插入图片并设置图片大小和位置
object Nothing = System.Reflection.Missing.Value; //创建一个名为wordApp的组件对象 Application w ...
java 在线给word 文件插入图片，并设置图片大小
一.前言: 有时我们想在一篇word文档中的指定位置添加一张服务器上的图片,并且并且设置图片大小.这个对文档的操作一定是需要第三方api的.市面上对文档处理的插件有POI以及openoffice等等, ...
如何等比例调整图片大小？
如何等比例调整图片大小?将图片尺寸大小调整成我们需要的,是图片使用过程中最常见的,等比例调整图片尺寸大小可以防止图片变形,图片变形会使得图片无法使用,所以非常的重要.为了帮助大家提高工作效率,今天小编 ...
掌握ConstraintLayout（十）按比例设置视图大小
有时候在布局界面的时候,UI要求某个View或者某张图片按比例显示,以适应不同的屏幕分辨率. 通常我们时通过自定义View或者引入第三方的库来解决.现在我们既然已经使用了ConstraintLayou ...
【Windows】Word中MathType批量修改公式字体和大小
引言在word中利用MathType编写公式,由于插入位置不同导致MathType格式并不统一,如何实现MathType批量修改公式字体和大小? 具体操作任意打开word文件的MathType公式 ...

word使用宏命令批量按比例设置图片大小

word使用宏命令批量按比例设置图片大小相关推荐

最新文章

热门文章