如何在Word宏中实现「重置图片和大小」按钮的完整功能？

我正在处理多份官方Word创建的文档，其中大量公式被转换为固定尺寸的InlineShape（嵌入式形状）。手动点击「重置图片和大小」按钮可恢复正常，但受限于嵌入式形状的属性，无法批量选中所有形状执行该操作，因此希望通过宏实现批量处理。

我了解到Word有InlineShape.Reset方法，但该方法仅对应「重置图片」按钮的功能，不清楚如何实现「重置大小」部分。我尝试设置InlineShape对象的ScaleHeight和ScaleWidth属性为100，却没有效果。以下是我编写的宏代码：

Sub reset_all_picture_size()
Dim n
    For n = 1 To ActiveDocument.InlineShapes.Count
        ActiveDocument.InlineShapes(n).reset
        With ActiveDocument.InlineShapes(n)
             .ScaleHeight = 100
             .ScaleWidth = 100
        End With
    Next n
End Sub

解决方案 #

要完整实现「重置图片和大小」的功能，核心问题在于ScaleHeight和ScaleWidth的参数设置——这两个属性默认需要指定RelativeToOriginalSize为True，确保缩放比例基于形状的原始尺寸计算，否则设置100%不会生效。另外，建议针对公式对应的形状类型做筛选，避免误处理其他嵌入式对象。

修改后的宏代码

Sub ResetAllFormulaShapes()
    Dim shp As InlineShape
    ' 遍历文档中所有嵌入式形状
    For Each shp In ActiveDocument.InlineShapes
        ' 仅处理公式常用的OLE对象或图片类型（可根据实际情况调整）
        If shp.Type = wdInlineShapeOLEObject Or shp.Type = wdInlineShapePicture Then
            ' 执行「重置图片」操作
            shp.Reset
            ' 重置大小为原始尺寸的100%
            shp.ScaleHeight = 100, RelativeToOriginalSize:=True
            shp.ScaleWidth = 100, RelativeToOriginalSize:=True
        End If
    Next shp
End Sub

补充：处理尺寸锁定的情况

如果部分形状存在宽高比锁定导致重置无效，可以先解除锁定再操作：

Sub ResetAllFormulaShapesWithUnlock()
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        If shp.Type = wdInlineShapeOLEObject Or shp.Type = wdInlineShapePicture Then
            ' 临时解除宽高比锁定
            shp.LockAspectRatio = msoFalse
            shp.Reset
            shp.ScaleHeight = 100, RelativeToOriginalSize:=True
            shp.ScaleWidth = 100, RelativeToOriginalSize:=True
            ' 恢复宽高比锁定（可选，根据需求决定）
            shp.LockAspectRatio = msoTrue
        End If
    Next shp
End Sub

说明 #

• RelativeToOriginalSize:=True 是实现「重置大小」的关键，它让缩放比例基于形状的原始尺寸计算，设置为100%即可恢复初始大小。
• 增加形状类型判断，避免误处理文本框、图表等其他嵌入式元素。
• 使用For Each循环遍历，代码更简洁且不易出错。

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