編輯有大量圖片的文件，一個一個手動調整圖片格式，非常費力。

百度了下，發現有巨集這個工具。檢視選項卡--->巨集---->檢視巨集，裡面可以建立、編輯巨集。

Sub setpicsize()

'設定圖片大小 ' 巨集在 2008-3-31 由 hero_thm 錄製 Dim j '計數圖片個數 For j = 1 To ActiveDocument.InlineShapes.Count '檔案中圖片總個數，圖片型別為inlineshapes ActiveDocument.InlineShapes(j).Height = 362 '設定高度12.77cm ActiveDocument.InlineShapes(j).Width = 481.87 '設定寬度17cm Next j End Sub

然後執行巨集就可以了，親測非常有效，當圖片成功調整的一刻，非常感動。高度可以用（362/12.77*你需要的高度）來調整