从Access中保存Excel中的图表图片

Sub SaveChartImage()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim xlChartObject As Object
    
    ' 创建Excel应用对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\Excel\File.xlsx")
    
    ' 设置活动工作表
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    
    ' 设置图表对象
    Set xlChartObject = xlWorksheet.ChartObjects("Chart1")
    
    ' 保存图表图片
    xlChartObject.Chart.Export "C:\Path\To\Save\Image.png"
    
    ' 关闭Excel文件并释放资源
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    Set xlChartObject = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub