以下为《word常用宏命令》的无排版文字预览，完整格式请下载

下载前请仔细阅读文字预览以及下方图片预览。图片预览是什么样的，下载的文档就是什么样的。

码中单位厘米

（1）设置固定大小n厘米：

Sub resetImgSize()Dim iShape As InlineShapeFor Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoTrueiShape.Height = CentimetersToPoints(n)iShape.Width = CentimetersToPoints(n)NextEnd Sub

（2）等比例缩放n倍：

Sub resetImgSize()

Dim imgHeight

Dim imgWidthDim i 内容过长，仅展示头部和尾部部分文字预览，全文请查看图片预览。 Dim imgHeight

Dim imgWidthDim iShape As InlineShapeFor Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoTrue

imgHeight = iShape.HeightimgWidth = iShape.Width

?

iShape.Height = CentimetersToPoints(n?* imgHeight / imgWidth)iShape.Width = CentimetersToPoints(n)NextEnd Sub

[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]

以上为《word常用宏命令》的无排版文字预览，完整格式请下载

下载前请仔细阅读上面文字预览以及下方图片预览。图片预览是什么样的，下载的文档就是什么样的。