Добрый вечер!
Прошу помочь. Код работает, но скриншот пустой белый фон. Подскажите что нужно в коде сделать:
Private Sub CommandButton2_Click()
Dim sName As String, wsTmpSh As Worksheet
If TypeName(Selection) <> "Range" Then
MsgBox "Ошибка! Не корректный диапазон.", vbCritical
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Selection
.CopyPicture
Set wsTmpSh = ThisWorkbook.Sheets.Add
sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export Filename:="C:\Distr\Горный\1.jpg", FilterName:="JPG"
.Parent.Delete
End With
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub