VBA如何将多个工作表内容与指定图表对象导出为同一个PDF文件

Excel 内置的 ExportAsFixedFormat 方法不支持同时选中普通工作表和其他工作表内嵌的图表对象作为导出范围，直接选中图表会覆盖之前已选中的工作表范围，所以会出现仅导出图表的问题。

我们可以通过临时中转工作表的方式实现需求，核心逻辑是将目标图表复制到独立的临时工作表，再将需要导出的普通工作表和临时工作表合并选中后导出，导出完成后删除临时工作表即可，全程可以设置临时工作表隐藏不影响用户操作。

完整实现代码 #

Sub ExportSheetsAndChartToPDF()
    Dim FolderPath As String
    Dim tempSheet As Worksheet
    Dim targetChart As ChartObject
    
    ' 配置输出路径
    FolderPath = "C:\Output_folder"
    
    ' 禁用屏幕更新和告警提示，优化执行体验
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error Resume Next
    ' 提前删除可能存在的残留临时表，避免报错
    ThisWorkbook.Sheets("临时图表导出页").Delete
    On Error GoTo 0
    
    ' 创建临时工作表
    Set tempSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    tempSheet.Name = "临时图表导出页"
    ' 取消下行注释可设置临时表隐藏，用户完全无感知
    ' tempSheet.Visible = xlSheetHidden
    
    ' 复制工作表3的指定图表到临时表
    Set targetChart = ThisWorkbook.Sheets(3).ChartObjects(1)
    targetChart.Copy
    tempSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
    
    ' 选中所有需要导出的内容：原工作表1、2 + 临时图表工作表
    Sheets(Array(1, 2, tempSheet.Name)).Select
    
    ' 执行PDF导出
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FolderPath & "\Test.pdf", _
        IncludeDocProperties:=True, _
        OpenAfterPublish:=True, _
        IgnorePrintAreas:=False
    
    ' 导出完成后删除临时工作表
    tempSheet.Delete
    
    ' 恢复屏幕更新和告警提示
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

注意事项 #

• 如果需要调整图表在PDF中的位置和大小，可以修改粘贴后图表的Top/Left/Width/Height属性，或者调整临时工作表的页面边距、缩放比例
• 如果需要同时导出多个独立图表，可重复复制粘贴步骤，将多个图表放在同一个临时工作表的不同位置，或者创建多个临时表
• 代码中默认保留图表的原格式，如果仅需要导出图表值可修改PasteSpecial的粘贴参数

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