我尝试使用ExportAsFixedFormat方法将单个工作表从工作簿保存为pdf:
Sheets("Overview").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Mid(saveFile, 1, InStr(saveFile, ".")) & "pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
这已经工作了一段时间,直到我开始事先做一些图表操作。我正在谈论的操作看起来像这样:
ActiveSheet.ChartObjects("Diagramm 4").Activate
ActiveChart.SetSourceData Source:=Sheets("Measurements").Range( _
"C4:C29,G4:G29")
现在它不是将整张纸作为pdf导出,而是仅将图表称为" Diagramm 4"。 我或多或少地理解为什么要这样做,但我无法找到解决这个问题的方法。
答案 0 :(得分:2)
您可以尝试选择该表格上的任何单元格,如:
Range("A1").Select
导出页面之前。可能这种情况正在发生,因为您使图表处于活动状态而不再使其处于非活动状态。看看当您正常选择图表然后尝试打印工作表时会发生什么 - 它只是尝试打印图表。