mac os 系统word文档批量更改图片尺寸问题汇总

记录一下更改word文档中的图片时遇到的问题。

word文档是文字、排版什么的都做完了，只想批量调一下图片尺寸。发现无论是word和还是wps都无法用快捷键选中所有图片。后面用宏解决了批量修改的问题。

wps存在的问题

首先用了wps，app store里直接下载的。在word选项中没有找到选择多个对象的功能。用了选择窗格的功能。

【点击开始-选择-选择窗格】
然后选择图片的时候，发现不能够同时选中窗格中所有图片对象。按ctrl，shift，comm或者一些常用组合键都没选中。

word 2016

word 2016打开以后没找到选择功能，百度也没找到答案。但是可以先调整一张图片的大小，然后依次点击剩余的图片，按下ctrl+y更改。

【右键点击一张图片—大小和位置，设置宽和高】
这种方法图片多了很浪费时间。继续搜索，找到一段相关的宏代码。

新建一个宏。

把代码放进去。

运行宏即可。

附上代码。

  Dim i
    Dim Height, Weight
    Height = 200 '改成自己的高度
    Weight = 350 '改成自己的宽度
    
    On Error Resume Next '忽略错误
    For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
            ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
 
    For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
            ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
End Sub