VBA獲取單元格數據範圍進行截圖，將截圖存放到本地路徑中保存

以下是一个示例VBA代码，可以获取指定范围内单元格的截图，并将其保存到本地路径中：

Sub CaptureRange()

    '定义变量
    Dim rng As Range
    Dim path As String
    Dim fileName As String
    
    '指定要截图的单元格范围
    Set rng = Range("A1:D10")
    
    '设置文件保存路径和文件名
    path = "C:\Temp\"
    fileName = "range.png"
    
    '截图并保存
    rng.CopyPicture xlScreen, xlBitmap
    SavePicture Selection, path & fileName
    
    '提示保存成功
    MsgBox "截图已保存到：" & path & fileName

End Sub

请注意，此代码假定指定的路径存在且具有写入权限。如果路径不存在或没有写入权限，代码将会产生错误。