Как в этом коде указать постоянный диапазон, а не тот что сейчас выделен?
Код |
---|
Sub Range_to_Picture()
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 = "SB"
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
End Sub |