VBA全屏截图 截图保存在本地

VBA（Visual Basic for Applications）是Excel内置的一种宏语言，可以用来自动化工作簿操作。如果你想要通过VBA在Excel中全屏截图并保存到本地，你可以编写一段简单的脚本，如下所示：

Sub FullScreenCapture()
    Dim wkb As Workbook
    Dim wsh As Worksheet
    Dim picPath As String
    Set wkb = ActiveWorkbook '设置当前活动的工作簿为截图的对象
    Set wsh = ActiveSheet   '设置当前活动的工作表为截图区域

    '创建图片对象，并截图
    Dim oPic As Object
    Set oPic = CreateObject("ADODB.Stream")
    oPic.Open
    With wsh.ChartObjects(1).Chart '假设你只有一个图表对象，如果没有图表则需要修改这部分
        .ExportPicture Picture:=oPic, Format:=xlPNG '导出为PNG格式，其他格式如.jpg也可替换
    End With
    
    '指定保存路径和文件名
    picPath = "C:\Screenshots\" & Format(Date, "yyyy-mm-dd_hh-mm-ss") & ".png" '这里以当前日期时间命名

    '保存图片到本地
    oPic.SaveToFile picPath, 2 'SaveAs方式，2代表保存为二进制模式

    '释放资源
    oPic.Close
End Sub

运行这个宏后，会将当前工作表的图表作为全屏截图保存在指定的本地路径下。