VBA实现截图另存为图片功能

最近调试 VBA 实现了一个截图另存为功能。 分享一下，有类似需求的人可以少走弯路。

Sub picSaveAs() '截图另存为图片 Dim myPic As Shape, pic As Shape Dim rng As Range, n%
n = ActiveSheet.Shapes.Count '设定rng=Application.InputBox(“请选择需要截取的屏幕范围：”,“截取范围”,类型:=8) Set rng = Worksheets(“ASA”).Range(“BH2:CN110”) rng.CopyPicture xlScreen, xlBitmap 'ActiveSheet.Paste目标位置:=ActiveSheet.Range(“A1”) ActiveSheet.Paste Destination:=ActiveSheet.Range(“A1”) Set myPic = Ac

VBA实现截图另存为图片功能最先出现在Python成神之路。