word 文檔 一次性設置多張圖片大小

1.打開WORD文檔，插入多張圖片。

2.在word中按alt+f11組合鍵，進入VBA模式。

3.在左邊的工程資源管理器中找到你的word文檔，在其上右鍵/添加/模塊

4.復制以下代碼

　　

Sub Macro()
Mywidth = 3.5 '10為圖片寬度（厘米）
Myheigth = 6 '10為圖片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

 

5.點擊運行。

搞定！