Скриншот определенного диапазона

[Посетитель]

Здравствуйте!
Подскажите в этом коде можно сделать так, чтобы скрин сохранялся по заданному пути. И еще чтобы самому не выделять диапазон скрина. А задать ему определенный диапазон. Пожалуйста помогите.

Вот код:

Private Sub CommandButton2_Click()
Dim sName As String, wsTmpSh As Worksheet
If TypeName(Selection) "Range" Then
MsgBox "Выделенная область не является объектом!", vbCritical, "www.excel-vba.ru"
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
.Parent.Select
.Paste
.Export Filename:=sName & ".gif", FilterName:="GIF"
.Parent.Delete
End With
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[Администратор]

Ваш код не делает скрин, а копирует изображение, которое есть на листе.
Вы же хотите, чтобы макрос делал скрин диапазона.
Нестыковка.

[Посетитель]

да все верно, чтобы делал скрин)

[Администратор]

Без макроса вы знаете, как сделать скрин? Если да, то напишите, куда щёлкает пользователь: вкладка такая-то, группа такая-то, кнопка такая-то.

[Посетитель]

Не совсем понял Вас. Мне нужно именно чтобы макросом скрин делала.

[Администратор]

Да, я понял, что вам нужен макрос.
Вы знаете, как сделать скриншот в самом Экселе без макроса?
Просто не думайте и не пытайтесь меня понять, просто ответьте на этот вопрос.

[Посетитель]

нет незнаю)

[Посетитель]

Так есть ли возможность через макрос сделать скрин определенного диапазона.

[Администратор]

Написал вам письмо на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.