設定大小

在Word中按Alt+F11，把下面的程式碼貼上進去，然後按F5執行就可以了；

（你可以修改程式碼中的15和9分別為你需要的尺寸即可）

Sub FormatPics()

Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoFalse "不鎖定縱橫比

Shap.Width = CentimetersToPoints(15) "寬15CM

Shap.Height = CentimetersToPoints(9) "高9CM

End If

Next

End Sub