第三步:

• COPY下面段野貼上去
• 之後關左佢就會自動儲存

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse

iSha.Width = CentimetersToPoints(6.3)

iSha.Height = CentimetersToPoints(8.8)

End If

Next