Поиск

Привет! Уважаемые прогеры, этот всем известный макрос делает скриншот листа. Можно в нём как-нибудь задать разрешение этого скриншота, а то когда этих картинок набирается несколько сотен, то папка начинает весить несколько гигов? Не чтобы сильно критично, но всё же) Sub Range_to_Picture() Dim sName As String, nName As String, dName As String, wsTmpSh As Worksheet nName = Range("AO1").Value dName = Range("K2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False Range("A1:AG38").Select With Selection .CopyPicture Set wsTmpSh = ThisWorkbook.Sheets.Add sName = ActiveWorkbook.FullName & "_" & Format(dName, "dd/mm/yy hh mm") & "_" & nName With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sName & ".jpg", FilterName:="JPG" .Parent.Delete End With End With wsTmpSh.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True Range("A1").Select End Sub