VBA ExportAsFixedFormat 仅保存最后一个事件图表

Question

我正在尝试使用 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”的图表。 我或多或少理解它为什么这样做，但我找不到解决这个问题的方法。

Answer 1

您可以尝试选择该工作表上的任何单元格，例如:

Range("A1").Select

在导出页面之前。发生这种情况可能是因为您使图表处于事件状态而没有再次使其处于非事件状态。看看当您通常选择图表然后尝试打印工作表时会发生什么 - 它只会尝试打印图表。