通过vba将特定的excel范围导出为jpeg格式

Sub ExportRangeToJPEG()
    Dim rng As Range
    Dim chartObj As ChartObject
    Dim filePath As String
    
    ' 设置要导出的范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:D10")
    
    ' 创建一个临时图表对象
    Set chartObj = ThisWorkbook.Worksheets.Add().ChartObjects.Add(0, 0, rng.Width, rng.Height)
    
    ' 将范围复制到临时图表
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    ' 将图表粘贴为图片
    chartObj.Chart.Paste
    
    ' 设置导出路径和文件名
    filePath = "C:\Path\To\Save\Image.jpg"
    
    ' 导出图像为JPEG格式
    chartObj.Chart.Export filePath, "JPEG"
    
    ' 关闭临时图表和工作表
    chartObj.Delete
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("Sheet2").Delete
    Application.DisplayAlerts = True
    
    ' 提示导出成功
    MsgBox "范围已成功导出为JPEG图像！", vbInformation
End Sub