word vba 统一图片大小

Sub sdf()
Dim apic As InlineShape
Dim apic2 As Shape

Dim gao, kuan As Double
'Application.ScreenUpdating = False

gao = 250
kuan = 370

For Each apic In ActiveDocument.InlineShapes

With apic
  .LockAspectRatio = msoFalse
  .Height = gao
  .Width = kuan
 
End With
Next

For Each apic2 In ActiveDocument.Shapes

With apic2
  .LockAspectRatio = msoFalse
  .Height = gao
  .Width = kuan
End With

Next

'Application.ScreenUpdating = True
End Sub
  ******************
​

Sub 改变图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
    If iSha.Type = wdInlineShapePicture Then
       iSha.LockAspectRatio = msoFalse '不锁定纵横比
            iSha.Width = CentimetersToPoints(28.05)   '宽28CM
                iSha.Height = CentimetersToPoints(18) '高18CM
                End If
                Next
End Sub
​
​