将图片以PNG格式保存到文件位置的VBA Excel代码

Sub SaveImageAsPNG()
    Dim ws As Worksheet
    Dim rng As Range
    Dim chartObj As ChartObject
    Dim pic As Picture
    Dim filePath As String
    
    ' 设置工作表和图片范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:B2")
    
    ' 创建图表对象并将范围复制到图表中
    Set chartObj = ws.ChartObjects.Add(0, 0, rng.Width, rng.Height)
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    ' 将图表粘贴为图片对象
    chartObj.Chart.Paste
    Set pic = chartObj.Chart.Parent
    
    ' 获取保存文件路径
    filePath = "C:\path\to\save\image.png"
    
    ' 保存图片为PNG格式
    pic.Export filePath, "PNG"
    
    ' 清除图表对象和图片对象
    chartObj.Delete
    Set pic = Nothing
End Sub