Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Felixandr
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для сохранения выделенной области в JPG c присвоением имени из ячейки
 
#
28.06.2017 14:11:35
Если есть возможность реализовать, то интересует такой хитрый Макрос для сохранения выделенной области в png или jpg в папку с названием "отчеты", а название файла брал из указанной ему ячейки.
P/s максимум что мне удалось сделать это копировать выделенную область в буфер обмена, а дальше через paint и.т.д .
Хотелось бы автоматизировать процесс
Код
Sub Макрос8()
'
' Макрос8 Макрос
'

'
    Range("A2:D20").Select
    Range("D20").Activate
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
End Sub
Изменено: Felixandr - 28.06.2017 14:18:08
 
Перейти    
Таблица в "полнейший экран", Есть ли возможность развернуть документ в полный экран.
 
#
27.04.2017 14:57:41
Собственно говоря, интересует возможность открыть документ во весь экран. (без панели задач и верхнего трея)
Изменено: Felixandr - 28.04.2017 03:04:07
 
Перейти    
2 макроса (один прячет ячейки, другой возвращает) на одну кнопку
 
#
26.04.2017 12:10:16
Имеется 2 макроса (один убирает ячейки, другой возвращает). В данный момент они у меня назначены на 2 разных кнопки.
Как их назначить на одну кнопку, чтобы при нажатии, в зависимости от ситуации, кнопка выполняла макрос первый либо второй.
Код
Sub УбНИЗ()
'
' УбНИЗ Макрос
'
    Application.ScreenUpdating = False
'
    Sheets("Раунд2").Select
    Sheets("Раунд2").Unprotect Password:="1148"
    Rows("21:36").RowHeight = 0
    Rows("20:20").RowHeight = 0.75
    Range("J3:K3").Select
    Sheets("Раунд2").Protect Password:="1148"
    Sheets("Раунд3").Select
    Sheets("Раунд3").Unprotect Password:="1148"
    Rows("21:36").RowHeight = 0
    Rows("20:20").RowHeight = 0.75
    Range("J3:K3").Select
    Sheets("Раунд3").Protect Password:="1148"
    Sheets("Раунд1").Select
    Sheets("Раунд1").Unprotect Password:="1148"
    Rows("21:36").RowHeight = 0
    Rows("20:20").RowHeight = 0.75
    Range("J3:K3").Select
    Sheets("Раунд1").Protect Password:="1148"
    Application.ScreenUpdating = True
End Sub

Sub ДобНИЗ()
'
' ДобНИЗ Макрос
'
    Application.ScreenUpdating = False
    Sheets("Раунд2").Select
    Sheets("Раунд2").Unprotect Password:="1148"
    Rows("20:21").RowHeight = 18
    Rows("31:31").RowHeight = 22.5
    Rows("32:36").RowHeight = 21.75
    Range("J3:K3").Select
    Sheets("Раунд2").Protect Password:="1148"
    Sheets("Раунд3").Select
    Sheets("Раунд3").Unprotect Password:="1148"
    Rows("20:21").RowHeight = 18
    Rows("31:31").RowHeight = 22.5
    Rows("32:36").RowHeight = 21.75
    Range("J3:K3").Select
    Sheets("Раунд3").Protect Password:="1148"
    Sheets("Раунд1").Select
    Sheets("Раунд1").Unprotect Password:="1148"
    Rows("20:21").RowHeight = 18
    Rows("31:31").RowHeight = 22.5
    Rows("32:36").RowHeight = 21.75
    Range("J3:K3").Select
    Sheets("Раунд1").Protect Password:="1148"
    Application.ScreenUpdating = True
End Sub
Изменено: Felixandr - 26.04.2017 12:30:38
 
Перейти    
Запрет ввода определенных цифр, При запрете ввода числа "1" остальные числа начинающиеся на единицу не вводятся
 
#
22.04.2017 10:32:20
ЧТОБЫ НИ КОГО НЕ ПУТАТЬ ОСНОВНАЯ СУТЬ ПРОБЛЕМЫ ОПИСАНА В ПОСТЕ №19
Изменено: Felixandr - 22.04.2017 15:00:33
 
Перейти    
Страницы: 1
Наверх