捕获屏幕截图并将其保存在文件夹中

Question

我可以使用一个宏来创建所选窗口的屏幕截图并将其保存在文件夹中

Answer 1

从here无耻地（但经过测试）被盗：

Sub test()
    Dim cht As Chart
    With Range("A1:E10")
    .CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set cht = ActiveSheet.ChartObjects.Add(10, 10, .Width, _
    .Height).Chart
    End With
    cht.Paste
    cht.ChartArea.Border.LineStyle = 0
    On Error Resume Next
    Kill "testChart.jpg"
    On Error GoTo 0
    cht.Export "testChart.jpg", "jpg"
    cht.Parent.Delete
End Sub

我认为你的意思是选择Range，而不是窗口，否则按键会做。我们需要将Range("A1:E10")替换为Selection，并将其包装在错误检查中，因为Selections are a little risky