用VBA将excel图形导出为水平PDF

Sub ExportGraphToPDF()
    Dim graphSheet As Worksheet
    Dim graphObject As ChartObject
    Dim exportRange As Range
    Dim exportPath As String
    
    ' 设置导出路径
    exportPath = "C:\Path\To\Export\Graph.pdf"
    
    ' 设置图表所在的工作表
    Set graphSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置图表对象
    Set graphObject = graphSheet.ChartObjects("Chart 1")
    
    ' 设置导出范围（可根据需要调整）
    Set exportRange = graphObject.Chart.ChartArea
    
    ' 导出图表为PDF
    graphObject.Chart.ExportAsFixedFormat Type:=xlTypePDF, Filename:=exportPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub