如何按比例缩放PPT讲义图片？获取并同步宽高缩放因子

问题背景 #

需要将Word文档中图片宽度调整为18.46厘米后，读取其ScaleWidth缩放比例，再将ScaleHeight设为相同值，解决生成PowerPoint讲义时图片缩小、锁定比例设置无效的问题。

解决方案 #

Word的InlineShape对象自带ScaleWidth和ScaleHeight属性，可直接读取或设置图片的缩放比例（取值为小数形式的百分比，如145%对应1.45）。以下是修改后的宏代码：

Sub Resize_All_Images()
' 调整所有图片宽度后同步宽高缩放比例
    With ActiveDocument
        For I = 1 To .InlineShapes.Count
            With .InlineShapes(I)
                ' 解除锁定比例，避免设置高度缩放时受限制
                .LockAspectRatio = msoFalse
                ' 设置目标宽度：18.46厘米转换为Word磅值
                .Width = CentimetersToPoints(18.46)
                ' 获取当前宽度的缩放比例（小数形式，如1.45代表145%）
                Dim scaleRatio As Single
                scaleRatio = .ScaleWidth
                ' 将高度缩放比例与宽度保持一致
                .ScaleHeight = scaleRatio
                ' 可选：重新锁定比例，防止后续误操作破坏比例
                .LockAspectRatio = msoTrue
            End With
        Next I
    End With
End Sub

关键说明 #

• ScaleWidth/ScaleHeight：直接返回/设置图片相对于原始尺寸的缩放比例，1.0对应100%缩放。
• 必须先关闭LockAspectRatio：锁定比例状态下，Word会自动按比例调整高度，无法手动设置ScaleHeight，因此需要先解锁，调整完成后可重新锁定。
• 单位转换：CentimetersToPoints函数用于将厘米转换为Word默认的磅单位，确保宽度设置准确。

内容的提问来源于stack exchange，提问作者user53617