如何批量调整word文档图片的大小，要求:宽度15cm、锁定纵横比、保持图像清晰。谢谢
发布网友
共1个回答
热心网友
Private Sub image_size ()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).LockAspectRatio = msoTrue
picheight = ActiveDocument.InlineShapes(i).Height
picwidth = ActiveDocument.InlineShapes(i).Width
ActiveDocument.InlineShapes(i).Height = 15 * 28.43
ActiveDocument.InlineShapes(i).Width = picwidth * 15 * 28.43 / picheight
Next i
End Sub
