是否可以通过Word VBA调用自带的「Save as Picture」对话框？

功能实现说明 #

可以直接通过VBA调用Word原生的「Save as Picture」对话框，无需自行实现文件选择、格式转换逻辑，调用的是Word公开的内置命令，兼容性和稳定性都有保障。

实现代码 #

Sub OpenSaveAsPictureDialog()
    ' 校验选中对象类型：仅图片、形状、SmartArt、图表等可导出对象支持该功能
    If Selection.Type <> wdSelectionShape And Selection.Type <> wdSelectionInlineShape Then
        MsgBox "请先选中需要导出的图片/形状类对象", vbInformation
        Exit Sub
    End If
    ' 调用Word内置的「另存为图片」命令，直接弹出原生对话框
    Application.CommandBars.ExecuteMso "SaveAsPicture"
End Sub

注意事项 #

• 适用版本：Word 2010及以上版本均支持该调用方式
• 功能一致性：弹出的对话框和手动右键对象选择「另存为图片」的完全一致，支持PNG、JPG、BMP、GIF、TIFF等所有Word默认支持的图片导出格式
• 多选适配：如果同时选中多个可导出对象，会将多个对象组合为单张图片导出

Stack Overflow提问合规性说明 #

该提问完全符合Stack Overflow的提问规范，判定依据如下：

• 问题边界清晰：明确要求调用Word原生的「Save as Picture」对话框，排除了其他自行实现的替代方案，不存在歧义
• 前置调研充分：明确说明提问前已进行多方检索未找到对应解决方案，不存在重复提问的问题
• 属于有效编程问题：核心是VBA调用Office内置接口的具体实现，不属于泛泛的需求咨询或意见征集类问题，有明确的可验证的解答

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