【word】利用宏批量設置word中圖片大小

 

 

word中批量設置圖片大小

Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(3.5)
iShape.Width = CentimetersToPoints(12)
Next
End Sub

在word選項中設置菜單欄顯示開發工具，找到宏后，新建宏，粘貼代碼，根據需要替換以上代碼中高3.5和寬12兩個變量。

word中批量調整圖片居中顯示

crtl+f或者菜單打開查找替換

點擊查找內容，點擊更多，展開選項，點擊特殊格式

在特殊格式中選擇圖形

然后點擊上圖中的替換為輸入框

點擊格式，選擇段落

根據自己需求，調整段落設置，確定

全部替換即可完成圖片批量居中設置