Excel VBA如何选中指定图片对象直接导出打印为PDF

Shape/ShapeRange 对象本身没有内置的 ExportAsFixedFormat 方法，Excel原生仅支持对工作表、指定单元格区域执行固定格式导出，不存在直接调用单个形状导出PDF的公开API，直接在形状对象上调用导出方法必然无法运行。

这套方案完全绕开复杂的单元格范围匹配逻辑，全程利用Excel原生支持的「选中对象后仅导出选中内容」的能力，临时调整导出配置完成导出，操作完成后自动还原所有原有设置，不会破坏工作表布局、也不会影响形状原本的隐藏/显示状态：

• 准确定位名为"Report"的目标形状，提前记录形状原有可见性、工作表原有打印区域、Excel原有打印选择模式，避免临时操作干扰日常使用状态
• 临时将目标形状设置为可见状态（适配形状本身需要隐藏的使用场景）并选中
• 临时将打印规则设置为「仅导出选中内容」，跳过原有打印区域的限制
• 调用工作表的PDF导出方法，此时导出的内容会完全匹配选中形状的边界，不会包含多余的单元格内容
• 导出完成后，立刻还原形状的可见状态、工作表的打印区域配置、Excel的全局打印选择设置，所有临时操作全程对用户无感知

Sub ExportReportShapeAsPDF()
    Dim targetSheet As Worksheet
    Dim reportShape As Shape
    Dim savePath As String
    Dim originalVisibility As MsoTriState
    Dim originalPrintArea As String
    Dim originalPrintSelectionSetting As Boolean
    
    ' 定位目标形状，可根据实际所在工作表调整工作表名
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    On Error Resume Next
    Set reportShape = targetSheet.Shapes("Report")
    On Error GoTo 0
    
    If reportShape Is Nothing Then
        MsgBox "未找到名为Report的形状对象"
        Exit Sub
    End If
    
    ' 记录所有原有配置，导出后自动还原
    originalVisibility = reportShape.Visible
    originalPrintArea = targetSheet.PageSetup.PrintArea
    originalPrintSelectionSetting = Application.PrintSelection
    
    ' 临时唤起形状可见性并选中
    reportShape.Visible = msoCTrue
    reportShape.Select
    
    ' 设置为仅导出选中内容，忽略原有打印区域
    Application.PrintSelection = True
    savePath = ThisWorkbook.Path & "\Projections_" & Format(Now(), "yyyymmdd") & ".pdf"
    
    ' 执行PDF导出
    targetSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=savePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=True, _
        OpenAfterPublish:=True
    
    ' 还原所有原有配置
    reportShape.Visible = originalVisibility
    targetSheet.PageSetup.PrintArea = originalPrintArea
    Application.PrintSelection = originalPrintSelectionSetting
    
    ' 取消形状选中状态
    targetSheet.Range("A1").Select
End Sub

• 无需编写形状到单元格的范围匹配逻辑：导出边界和形状的实际尺寸完全对齐，不会出现内容裁切、多余空白的问题
• 适配报告图像需要隐藏的使用场景：如果形状原本处于隐藏状态，代码会在导出时临时唤起可见性，导出完成后立刻还原隐藏状态，用户不会观察到界面的临时变化
• 不篡改原有工作表的打印配置：所有临时调整的打印规则都会在导出完成后自动还原，不会影响用户后续手动打印时的自定义设置

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