使用word將圖片變成統一大小

在word排版中，如果內容有多個圖片，您想把所有圖片變成統一大小，圖片少你可以手拖拉，但是如果是幾十張上百張，累死人。
根據作者多次辛苦的摸索和尋找，終於找到一個好方法，一勞永逸。就是使用word的巨集。

步驟

（01）準備圖片，我就以5張圖片為例吧。

（02）開啟word，匯入圖片。插入-圖片，選擇圖片插入，進入目錄後，Ctrl+A即可選擇全部。

（03）按Alt+F8，進入巨集編輯視窗。首先輸入巨集名稱，然後點選新建即可。

（04）在程式碼視窗中輸入如下程式碼：Dim iSha As InlineShapeFor Each iSha In neShapes If = wdInlineShapePicture Then    AspectRatio = msoFalse '不鎖定縱橫比        h = CentimetersToPoints(9#)  '寬5CM           ht = CentimetersToPoints(9.2) '高5CM             End If             Next

（05）點選執行，如下圖：

（06）執行後，關閉巨集編輯視窗，放心，關閉視窗後，巨集還在，可以不儲存。結果如下：