0

我有一个包含几张数据表的工作簿,我想将其导出为 PDF。使用以下代码可以轻松实现该步骤:

Sub ExportAsPDF()
Dim FolderPath As String

FolderPath = "C:\Output_folder"

Sheets(Array(1, 2)).Select

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\Test", _
        IncludeDocProperties:=True, OpenAfterPublish:=True, IgnorePrintAreas:=False

End Sub

但是,对于这个导出,我还想添加一个图表对象,它在另一个工作表中,比如说工作表 3(只有图表对象,而不是整个工作表)。

我已尝试将图表添加到选择中,紧随其后Sheets(Array1,2)).Select

Sheets(3).ChartObjects(1).Activate
    ActiveChart.ChartArea.Select

但显然这不起作用,PDF 现在只包含图表对象,没有工作表 1 和 2 的内容。

我应该如何将工作表的内容和特定的图表对象都导出到一个 PDF 中?

非常感谢您的投入。我找不到任何将两种类型的对象(工作表和图表)混合用于一次导出的相关问题。

亲切的问候

4

0 回答 0