使用C#和VBA将Excel中的图表保存为图片的操作指南

Install-Package FreeSpire.XLS

using Spire.Xls;
using System.Drawing;

Workbook workbook = new Workbook();
workbook.LoadFromFile("Sample.xlsx");

// 遍历所有工作表及其图表，保存为图片
foreach (Worksheet sheet in workbook.Worksheets)
{
    foreach (Chart chart in sheet.Charts)
    {
        Bitmap chartImage = chart.SaveToImage();
        chartImage.Save($"output/{sheet.Name} - {chart.ChartTitle}.jpg");
    }
}
workbook.Dispose();

Sub SaveAllChartsAsImages()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim folderPath As String
    Dim chartIndex As Integer
    Dim fileName As String
    
    ' 设置保存路径
    folderPath = ThisWorkbook.Path & "\Charts"
    If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath
    
    chartIndex = 1 ' 图片命名编号
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历工作表中的所有图表对象
        For Each chartObj In ws.ChartObjects
            fileName = folderPath & "\" & ws.Name & "_Chart" & chartIndex & ".jpg"
            chartObj.Chart.Export Filename:=fileName, FilterName:="JPG"
            chartIndex = chartIndex + 1
        Next chartObj
    Next ws
    
    MsgBox "所有图表已保存为图片。", vbInformation
End Sub