Экспорт в PDF открывает только второй график

Question

Попытка экспортировать мою таблицу «Отчет» в PDF-файл и открыть ее. Проблема в том, что все, что открывается, - это вторая диаграмма внизу этой таблицы.

Мой код:

ThisWorkbook.Sheets("Report").Activate
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\Report.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Что должно отображаться в PDF:

Что на самом деле отображается в PDF:

Answer 1

Это хорошо известная проблема Excel: для нее ActiveSheet тоже может быть диаграммой ... Если у вас есть активная диаграмма, она будет экспортирована.

Итак, достаточно Чтобы разместить перед строкой экспорта:

ActiveSheet.Range("A1").Select

Или убедитесь, что график не выбран и даже лучше, попробуйте квалифицировать свой лист как:

Dim sh As Worksheet

Set sh = Worksheets("sheet_name")

Answer 2

Попробуйте следующий код перед экспортом:

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With