1. 程式人生 > >word文件如何批量修改圖片大小

word文件如何批量修改圖片大小

Sub FormatPics()

 Dim iSha As InlineShape
 For Each iSha In ActiveDocument.InlineShapes
   If iSha.Type = wdInlineShapePicture Then
     iSha.LockAspectRatio = msoFalse '不鎖定縱橫比
     iSha.Width = CentimetersToPoints(5) '寬5CM
     iSha.Height = CentimetersToPoints(5) '高5CM
   End If
 Next
End Sub