word中批量设置图片大小
Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(3.5)
iShape.Width = CentimetersToPoints(12)
Next
End Sub
Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(3.5)
iShape.Width = CentimetersToPoints(12)
Next
End Sub