我可以使用一个宏来创建所选窗口的屏幕截图并将其保存在文件夹中吗
从这里无耻(但经过测试)被盗:
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
我假设您的意思是selected Range
,而不是window,否则将执行一次击键。我们需要替换Range("A1:E10")
为Selection
,并将其包装在错误检查中,因为Selection
s有点冒险
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句