用VBA在excel中保存图像

Sub SaveImage()
    Dim ws As Worksheet
    Dim rng As Range
    Dim chartObj As ChartObject
    Dim picObj As Picture

    ' 设置要保存图像的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    ' 设置要保存图像的范围，可以是图表或图片对象
    Set rng = ws.Range("A1:B10") ' 例如，保存A1到B10范围内的图像

    ' 如果要保存的是图表对象
    Set chartObj = ws.ChartObjects("Chart 1")
    chartObj.Chart.Export "C:\Path\To\Save\Chart.png" ' 保存为PNG格式

    ' 如果要保存的是图片对象
    Set picObj = ws.Pictures("Picture 1")
    picObj.Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ws.Paste Destination:=rng ' 将图像粘贴到指定范围
    Application.CutCopyMode = False

    ' 保存工作表
    ws.SaveAs "C:\Path\To\Save\Worksheet.xlsx" ' 保存为Excel文件

    ' 清除对象引用
    Set ws = Nothing
    Set rng = Nothing
    Set chartObj = Nothing
    Set picObj = Nothing
End Sub