匿名使用者 1級 2013-10-15 回答

Sub 統一圖片尺寸（）

Dim n ‘圖片個數

On Error Resume Next ’忽略錯誤

For n = 1 To ActiveDocument。InlineShapes。Count ‘InlineShapes型別圖片

ActiveDocument。InlineShapes（n）。Height = CentimetersToPoints（2） ’高度4cm

ActiveDocument。InlineShapes（n）。Width = CentimetersToPoints（2） ‘寬度3cm

Next n

For n = 1 To ActiveDocument。Shapes。Count ’Shapes型別圖片

ActiveDocument。Shapes（n）。Height = CentimetersToPoints（2） ‘高度4cm

ActiveDocument。Shapes（n）。Width = CentimetersToPoints（2） ’寬度3cm

Next n

End Sub

上面是word中統一圖片大小的宏程式碼，希望你能用得上。

程式碼中的圖片尺寸大小可以根據需要進行修改。

匿名使用者 1級 2013-10-15 回答

我建議你去百度上找一個批次修改圖片宏命令，很快，也很規範，我之前就用到過

匿名使用者 1級 2013-10-15 回答

選定每一張圖片，直接指定其高寬即可。