word批量设置图片大小和对齐，使用宏定义

word使用宏定义来批量设置图片大小

打开word中开发工具，文件→选项→word选项

新建Visual Basic文件

点击插入→模块

复制下列任意代码，粘贴到右侧。（注意可以灵活设置Myheigth或者Mywidth）
点击小三角，运行即可。

如何获取理想的Myheigth或Mywidth，选中一张图片，调节成适合的高度或者宽度，把数值记下来，赋值给Myheigth或Mywidth即可。

下列代码任选其一，粘贴即可

固定宽度

' 锁定图片的纵横比，固定宽度，高度任意
Sub 批量设置图片大小()Mywidth = 12     '厘米
On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoTrue   '锁定图片的纵横比iShape.Width = 28.345 * Mywidth    '设置图片宽度
NextEnd Sub

固定高度

' 锁定图片的纵横比，固定高度，宽度任意
Sub 批量设置图片大小()Myheigth = 18    '厘米
On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoTrue   '锁定图片的纵横比iShape.Height = 28.345 * Myheigth  '设置图片高度为任意cm
NextEnd Sub

固定高度，固定宽度

' 不锁定图片的纵横比，固定高度，固定宽度
Sub 批量设置图片大小()Myheigth = 18    '厘米
Mywidth = 12    '厘米
On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoFalse  '不锁定图片的纵横比iShape.Height = 28.345 * Myheigth  '设置图片高度为任意cmiShape.Width = 28.345 * Mywidth    '设置图片宽度
NextEnd Sub

固定高度，固定宽度，有对话框手动输入

' 不锁定图片的纵横比，固定高度，固定宽度
Sub 批量设置图片大小()Myheigth = InputBox("输入一个高度值") '厘米
Mywidth = InputBox("输入一个宽度值") '厘米
On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoFalse  '不锁定图片的纵横比iShape.Height = 28.345 * Myheigth  '设置图片高度为任意cmiShape.Width = 28.345 * Mywidth    '设置图片宽度
NextEnd Sub

具体讲解，调用了VB的ShapeRange 对象，有很多方法，比如

Sub 批量设置图片大小()
...
End SubFor Each iShape In ActiveDocument.InlineShapes
iShape.Width = 28.345 * Mywidth    '设置图片宽度为任意cm
...
Next批量设置图片大小宏,  下面这些注释提供参考，灵活修改
Myheigth = 18    '厘米
Mywidth = 12    '厘米
iShape.Height = 28.345 * Myheigth  '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth    '设置图片宽度为任意cm
iShape.LockAspectRatio = msoFalse  '不锁定图片的纵横比
iShape.LockAspectRatio = msoTrue   '锁定图片的纵横比

批量设置图片对齐方式

下面代码与大小调节代码不能一起运行，需要单独运行

Sub 批量设置图片对齐方式()
' .Alignment = wdAlignParagraphLeft    '左对齐
' .Alignment = wdAlignParagraphCenter  '居中
' .Alignment = wdAlignParagraphRight   '右对齐Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Replacement.ParagraphFormat.SpaceBeforeAuto = False.SpaceAfterAuto = False.Alignment = wdAlignParagraphRight   '右对齐，可修改为其他.WordWrap = TrueEnd WithWith Selection.Find.Text = "^g".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAll
End Sub

参考：
ShapeRange object (Project) | Microsoft Docs
LockAspectRatio
InlineShapes object (Word) | Microsoft Docs
word使用宏定义来统一设置图片大小

word批量设置图片大小和对齐，使用宏定义相关推荐

word 批量设置图片大小
word批量修改图片大小--固定长宽篇方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示 ...
Word批量设置图片大小
写论文需要批量统一图片格式?让我们打开word"宏". 1.查看Word图片属性是像素(px)还是厘米(cm) 如果是厘米,可以参考步骤二设置.如果是像素,跳转到步骤三开始codi ...
步骤条自定义图片_小技巧丨如何使用word批量调整图片大小？
导Lead语不知道你们有没有遇到需要批量修改图片尺寸的难题?那么,在大量图片的前提下,如何才能快速修改呢? 今天就和大家分享一下我当初的解决方法: 1F在word中添加选择多个对象功能新建一个W ...
word批量调整图片大小
1.新建一个空白word文档 2.选中一组图片(177张),按下ctr+c复制 3.将这组图片复制到word中. (本来我们的图片在文件夹中的时候是排好序且是正序的,可是粘贴到word这里好像变成乱序 ...
如何批量处理Word中的图片大小
用宏批量定位word中图片位置 word文档里面有多幅图,但图片的缩进位置不统一,有些靠右,有些居中,有些靠左等等. 能否通过编制宏一次完成调整,让所有图片靠左,或居中. 通过宏可以批量完成一 ...
在WORD中批量修改图片大小
今天在word中批量修改图片时发现了word一个强大的功能,不多说废话,直接附上步骤: 1.首先按一定的顺序将图片插入word当中: 2.点击"视图"----"宏&quo ...
Word中批量调整图片大小
当一个文档中图片较多,又需要调整图片大小时,这时可以通过"宏"执行代码来批量调整. 打开一个Word文档. "Alt+F8"键打开宏. 设置"宏名&q ...
Word批量更改图片环绕方式与=尺寸大小
前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型. 默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型 ...
C# 操作word 指定书签位置插入图片并设置图片大小和位置
object Nothing = System.Reflection.Missing.Value; //创建一个名为wordApp的组件对象 Application w ...
java 在线给word 文件插入图片，并设置图片大小
一.前言: 有时我们想在一篇word文档中的指定位置添加一张服务器上的图片,并且并且设置图片大小.这个对文档的操作一定是需要第三方api的.市面上对文档处理的插件有POI以及openoffice等等, ...