Word2013批量修改图片尺寸

0x00 前言

保持图片原始比例(锁定横纵比例)的情况下，批量调整为适应页面尺寸的图片大小。

名词

LockAspectRatio - 锁定横纵比例， MsoTrue if the specified shape retains its original proportions when you resize it. MsoFalse if you can change the height and width of the shape independently of one another when you resize it. Read/write MsoTriState.

wdInlineShapeLinkedPicture - 嵌入式连接图片(一般浏览器复制过来的图片类型)

wdInlineShapePicture - 嵌入式图片

0x01 使用宏

P.S. 2019.8.8 更新代码
代码如下：

Sub ResizePhotos()
Dim Shap As InlineShape
Dim maxWith
maxWith = CentimetersToPoints(16.79)For Each Shap In ActiveDocument.InlineShapesDebug.Print Shap.Type; "Shap.Type"; wdInlineShapePictureIf (Shap.Type = wdInlineShapeLinkedPicture) Or (Shap.Type = wdInlineShapePicture) ThenIf Shap.Width > maxWith Then' Shap.LockAspectRatio = msoTrueDebug.Print "before width: "; Shap.WidthDebug.Print "before Height: "; Shap.HeightoW = Shap.WidthoH = Shap.Heightaspect = oH / oW 'aspect rationH = aspect * CentimetersToPoints(16.79) 'new widthShap.Width = CentimetersToPoints(16.79)Shap.Height = nHDebug.Print "after width: "; Shap.WidthDebug.Print "after Height: "; Shap.HeightEnd IfEnd IfNextEnd Sub

其中， 16.79 为厘米单位的A4页面宽度，CentimetersToPoints为厘米转像素的函数

1. 打开隐藏的宏工具

点击左上角的文件-选项-自定义功能区，勾选左侧的"开发工具"

此时，文档功能区出现开发工具

2. 创建宏函数

点击宏，或者使用快捷点Alt + F8，打开宏管理，创建名为ResizePhotos的宏函数

复制粘贴代码即可

运行宏函数

方法一、在编辑窗口按F5即可

方法二、在管理窗口选中函数，点击运行

0x02 使用F4重复上一次action

右击第一幅图片，打开"设置大小与位置"
调整宽度到16.79厘米，确定
点击下一张图片，按F4键，图片即可被修改(MAC 使用command + Y)
依次修改后面的图片即可

0x03 Tips

宏自带纵横比锁定变量，但是设置为True时，并没有生效，所以自己算了一遍
图片的类型需要注意，不确定的时候可以打印出来
宏是vb语言，之前没学过，但是上手还蛮快的

0x04 参考文献

https://superuser.com/questions/940771/how-can-i-resize-multiple-images-in-a-ms-word-document
https://zhuanlan.zhihu.com/p/42588748
https://answers.microsoft.com/en-us/office/forum/office_2010-word/creating-a-macro-for-resizing-several-photos-in/b251f117-8d17-4522-bac4-d128c32587ba
https://docs.microsoft.com/en-us/office/vba/api/word.wdinlineshapetype