打开需要统一设置图片尺寸的Word文档,然后按下【Alt+F11】组合键打开VBA编辑窗口。
在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器,并且输入以下的内容。
Sub FormatPics()
Dim TuPian As InlineShape
For Each TuPian In ActiveDocument.InlineShapes
If TuPian.Type = wdInlineShapePicture Then
TuPian.LockAspectRatio = msoFalse '不锁定图片的宽高比'
TuPian.Width = CentimetersToPoints(4.15