我有一个包含几张数据表的工作簿,我想将其导出为 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 中?
非常感谢您的投入。我找不到任何将两种类型的对象(工作表和图表)混合用于一次导出的相关问题。
亲切的问候