Ctrl + Shift + 可以用来截取excel局部区域。代码如下:
Ctrl + Shift + 4,可以用来截取excel局部区域。
代码如下:
Sub CapturePartOfExcel()
'定义变量
Dim x As Long, y As Long, width As Long, height As Long
'设置需要截取的区域
x = Range("A1").Left
y = Range("A1").Top
width = Range("B2").Width
height = Range("B2").Height
'截取指定区域
ActiveWindow.ScrollColumn = x
ActiveWindow.ScrollRow = y
ActiveSheet.Shapes.AddShape(msoShapeRectangle, x, y, width, height).Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'新建一个图片
ActiveSheet.Pictures.Paste.Select
'保存图片
ActiveSheet.Pictures(1).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:\Users\\Desktop\CapturePartOfExcel.jpg", FileFormat:=xlJPEG
ActiveWorkbook.Close
End Sub
本站系公益性非盈利分享网址,本文来自用户投稿,不代表边看边学立场,如若转载,请注明出处
评论列表(48条)