Word VBA中按文档内尺寸保存InlineShape图片的方法求助

核心方案：利用Shape对象的Export方法指定显示尺寸 #

通过获取InlineShape在文档中的实际显示宽高，将其转换为Shape后按该尺寸导出，即可得到与文档内一致大小的图片，规避原图尺寸导出、白边等问题。

VBA代码示例 #

Sub SaveInlineShapeAsDisplayedSize()
    Dim doc As Document
    Dim inlineShp As InlineShape
    Dim tempShape As Shape
    Dim savePath As String
    Dim displayWidth As Single
    Dim displayHeight As Single
    
    Set doc = ActiveDocument
    ' 可替换为指定的InlineShape索引，或遍历所有InlineShape
    Set inlineShp = doc.InlineShapes(1)
    
    ' 获取文档内的实际显示尺寸（单位：磅）
    displayWidth = inlineShp.Width
    displayHeight = inlineShp.Height
    
    ' 转换为Shape以支持指定尺寸导出
    Set tempShape = inlineShp.ConvertToShape
    ' 临时移至文档可视区域外，避免干扰原布局
    tempShape.Top = -1000
    tempShape.Left = -1000
    
    ' 设置保存路径（示例为桌面）
    savePath = Environ("USERPROFILE") & "\Desktop\ExportedImage.png"
    
    ' 按显示尺寸导出，支持PNG/JPG/BMP
    tempShape.Export _
        FileName:=savePath, _
        Filter:=wdExportFilterPNG, ' 替换为wdExportFilterJPG或wdExportFilterBMP可切换格式
        Width:=displayWidth, _
        Height:=displayHeight
    
    ' 转换回InlineShape，恢复原嵌入格式（可选）
    tempShape.ConvertToInlineShape
    
    MsgBox "图片已保存：" & savePath
End Sub

关键说明 #

• inlineShp.Width/inlineShp.Height直接读取的是图片在文档中缩放后的显示尺寸，而非原图尺寸
• Shape对象的Export方法支持显式指定导出宽高，确保输出图片与文档内视觉大小一致
• 转换为Shape后临时移至文档外，避免修改原文档布局，最后可按需转换回InlineShape

关于Range复制的疑问 #

直接复制shp.Range.Duplicate并扩展范围的方式，确实会保留InlineShape的缩放配置，但这类方法在导出时（如通过剪贴板、Range保存）通常默认使用原图尺寸，无法直接应用文档内的显示尺寸。因此核心问题不在于Range复制是否保留配置，而在于导出过程中是否能主动指定目标尺寸——这也是上述方案的核心优势。

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