VBA獲取單元格數據範圍進行截圖，將截圖存放到本地路徑中保存
153浏览 · 2024-05-13 11:19:08
以下是一个示例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
请注意，此代码假定指定的路径存在且具有写入权限。如果路径不存在或没有写入权限，代码将会产生错误。
相关问题
可以使用 VBA 编写宏来实现截图并保存的功能。以下是示例代码：
Sub SaveScreenshot()
Dim Path As String
Path = "C:\Screenshots\"
If Dir(Path, vbDirectory) = "" Then MkDir Path '创建文件夹
ActiveSheet.Range("A1:AA80").CopyPictur
```