excel vba 将一张表上的已有数据另存为图片

可以使用Excel VBA中的Chart对象将一个表格区域转换成图表，然后将图表保存成图片文件。

以下是一个简单的示例代码：

Sub SaveTableAsImage()
    Dim chartObj As ChartObject
    Dim chartRange As Range
    Dim fileName As String
    
    ' 设置要保存的文件名
    fileName = "C:\temp\mytable.png"
    
    ' 获取要保存的表格区域
    Set chartRange = Sheet1.Range("A1:C10")
    
    ' 创建一个图表对象并将表格区域转换成图表
    Set chartObj = Sheet1.ChartObjects.Add(0, 0, chartRange.Width, chartRange.Height)
    chartObj.Chart.SetSourceData chartRange
    
    ' 将图表保存成图片文件
    chartObj.Chart.Export fileName, "PNG"
    
    ' 删除创建的图表对象
    chartObj.Delete
End Sub

在上面的示例代码中，将要保存的表格区域设置为`A1:C10`，并将保存的文件名设置为`C:\temp\mytable.png`。你可以根据自己的需要修改这些参数。在保存图片之前，还需要创建一个图表对象并将表格区域转换成图表。保存完成后，记得删除创建的图表对象，以免对原来的表格造成影响。