word2007批量圖片大小

⑴ 怎麼統一設置word2007中圖片格式，需要大小相同

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中統一圖片大小的宏代碼，希望你能用得上。
代碼中的圖片尺寸大小可以根據需要進行修改。