VBA - проблема с сохранением графика в формате PDF

У меня проблема с моим кодом, чтобы дать вам немного контекста, у меня есть макрос, который сохраняет определенную область печати в формате PDF. В этой области печати есть график. Когда я прошу распечатать, отображается график, однако, когда я использую свой макрос, график не отображается в PDF-файле, но при печати этого PDF-файла отображается график. Это мой код:

Sub SaveActiveSheetAsPDFIn2016()
    'Antoine Hervieux : 5-April-2016
    'Test macro to save as pdf with ExportAsFixedFormat
    Dim FileName As String
    Dim FolderName As String
    Dim Folderstring As String
    Dim FilePathName As String

    Sheets("Summary").PageSetup.Orientation = xlLandscape

    'Name of the folder in the Office folder
    FolderName = "PDFFolder"
    'Name of the pdf file
    FileName = Sheets("Summary").Range("C4") & ".pdf"

    Folderstring = CreateFolderinMacOffice2016(NameFolder:=FolderName)
    FilePathName = Folderstring & Application.PathSeparator & FileName
    ActiveSheet.ChartObjects("chart 1").PrintObject = True

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePathName, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False

    MsgBox "You find the PDF file in this location : " & FilePathName
End Sub

Вы хоть представляете, почему график не отображается? Кстати, я на MAC. Большое спасибо