word2013怎样批量重设图片和大小？（转）
Posted quietwalk
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了word2013怎样批量重设图片和大小？（转）相关的知识，希望对你有一定的参考价值。
https://www.zhihu.com/question/52908434/answer/132934213
点击视图，宏，查看宏，任意输入一个宏名，创建，
清空框内内容，复制以下代码粘贴，保存。
Sub 批量图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse ‘不锁定纵横比
iSha.Width = CentimetersToPoints(21) ‘宽21CM
iSha.Height = CentimetersToPoints(29.7) ‘高29.7CM
End If
Next
End Sub
Sub 批量图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse ‘不锁定纵横比
iSha.Width = CentimetersToPoints(21) ‘宽21CM
iSha.Height = CentimetersToPoints(29.7) ‘高29.7CM
End If
Next
End Sub
保存，回到word界面，点击宏，查看宏，运行。
完美~
以上是关于word2013怎样批量重设图片和大小？（转）的主要内容，如果未能解决你的问题，请参考以下文章