Скриншот текущей страницы и сохранение в папку

@TumJa · Регистрация: 26.02.2023

Author24 — интернет-сервис помощи студентам

Добрый день!

Через этот макрос, у меня скринит пустой белый фон. Помогите что в этот коде нужно сделать.

Visual Basic

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

@~~Daniel777~~ · 27.02.2023, 09:39

Добрый день!

Код, который вы предоставили, предназначен для копирования выделенного диапазона на график и экспорта этого графика в файл формата JPG. В текущей реализации этот код копирует только пустой белый фон, потому что не было указано, какой диапазон копировать.

Чтобы скопировать содержимое ячеек в текущий диапазон, вам нужно передать диапазон, который вы хотите скопировать, в эту процедуру. Например, вы можете изменить код таким образом:

Visual Basic

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

После запуска процедуры выделите диапазон, который вы хотите скопировать, а затем нажмите на кнопку CommandButton2. Процедура создаст временный лист, скопирует выделенный диапазон на график, экспортирует график в файл формата JPG и удалит временный лист.

@TumJa · 27.02.2023, 18:32 **[ТС]**

Сделал как Вы сказали, скринит также белый лист, но уже по размеру больше. Что делать, плиз

Добавлено через 21 секунду
Daniel777, Сделал как Вы сказали, скринит также белый лист, но уже по размеру больше. Что делать, плиз

@TumJa 0 / 0 / 0 Регистрация: 26.02.2023 Сообщений: 3
	27.02.2023, 18:32 [ТС]	3
	Сделал как Вы сказали, скринит также белый лист, но уже по размеру больше. Что делать, плиз Добавлено через 21 секунду Daniel777, Сделал как Вы сказали, скринит также белый лист, но уже по размеру больше. Что делать, плиз 0