摘要：用Word插入圖片后，怎么批量將所有的圖片調(diào)整成相同的大小。

1、直接按【Alt+F8】打開?“宏”對話框，在“宏名”文本框中輸入宏名稱"setpicsize"，然后點擊“創(chuàng)建”按鈕。

2、打開VBA編輯器（也可直接按【Alt+F11】快捷鍵），刪除窗口中原有的通用代碼，然后將下面的代碼復(fù)制粘貼到窗口中。

Sub setpicsize() '設(shè)置圖片尺寸

Dim n '圖片個數(shù)

On Error Resume Next '忽略錯誤

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類型 圖片

ActiveDocument.InlineShapes(n).Height = 198.45 '設(shè)置圖片高度為 7cm??ActiveDocument.InlineShapes(n).Width = 283.5 '設(shè)置圖片寬度 10cm?Next n?End Sub

3、然后按【Ctrl + S 】鍵保存內(nèi)容，關(guān)閉窗口。再次按【ALT + F8】打開?“宏”對話框查看宏，點擊“運行”按鈕。此時，文檔中的所有圖片就會自動的變成設(shè)置好的尺寸大小了。