平台：win10
工具：office2016
目的：批量調整word里的圖片尺寸
操作：因工作關系，需要在word里插入大量圖片並調整美觀，一個一個手動調整費時費力，試用了幾個插件，word精靈挺好用的，但我只是偶爾用用，特意買個會員不太值當。
所以，還是用宏命令最省心。
代碼1如下：
Sub setpicsize()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不鎖定縱橫比
iSha.Width = CentimetersToPoints(5) '寬5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
代碼2如下：
Sub setpicsize()
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Height = 300 '設置高度10.58cm
ActiveDocument.InlineShapes(j).Width = 510 '設置寬度17.99cm
Next j
End Sub