Hoặc bạn dùng code này
Sub ActionExport()
ExportRange Range("G174:K191"), ThisWorkbook.path & "\" & "Screenshot.jpg"
End Sub
Sub ExportRange(rng As Range, sPath As String)
Dim cob, sc
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set cob =...