第1步:
第二步:
第三步:
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
第四步:
結果:
就會變成咁,
所以我地要改一改A4 紙的SIZE
第五步:
我自己就習慣教晒 0.5cm
上下左右 都係 0.5cm
最後要特別鳴謝 KYLE, 因為CODE係佢諗出來的