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

Автор Посетитель, 27 февраля 2023, 21:47

Посетитель

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

Вот код:

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". Написал именно на почту, а не на форум.