參考:http://www.360doc.com/content/10/0921/22/2619988_55466952.shtml
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
本文介绍了一个使用VBA脚本批量调整Word文档中图片尺寸的方法。该脚本将遍历文档中的所有内联形状,并将类型为图片的内联形状宽度和高度设置为5厘米,同时取消锁定纵横比。
620

被折叠的 条评论
为什么被折叠?



