Здравствуйте!
Подскажите в этом коде можно сделать так, чтобы скрин сохранялся по заданному пути. И еще чтобы самому не выделять диапазон скрина. А задать ему определенный диапазон. Пожалуйста помогите.
Вот код:
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". Написал именно на почту, а не на форум.