Вставка рисунка на скрытый лист

Пользователь

Сообщений: 142 Регистрация: 10.09.2020

01.11.2021 12:03:16

Добрый день!

Как можно избавиться от Select -ов (листа, ячейки и фигуры) и работать с рисунком не раскрывая лист туда-сюда?

Код

Sub vstavka()

    Sheets("Лист1").Shapes("kvadrat").Copy
    
    Sheets("Печать").Visible = True
    
    Sheets("Печать").Select
    Range("B3").Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
    
    Sheets("Печать").Visible = False
    
End Sub

Прикрепленные файлы

Книга1.xlsm (14.65 КБ)

Изменено: Михаил - 01.11.2021 12:10:10

Mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#2 01.11.2021 12:17:18 Михаил,https://www.excel-vba.ru/chto-umeet-excel/select-i-activate-zachem-nuzhny-i-nuzhny-li/ Не бойтесь совершенства. Вам его не достичь.

Михаил

Пользователь

Сообщений: 142 Регистрация: 10.09.2020

01.11.2021 12:47:14

Mershik, Со вставкой данных проблем нет, а с рисунком сложнее.

Разобрался:

Код

Sub vstavka1()

    Sheets("Лист1").Shapes("kvadrat").Copy
    
    Sheets("Печать").Visible = True
    
    Sheets("Печать").Paste Destination:=Sheets("Печать").Range("b3")
    Sheets("Печать").Shapes("kvadrat").ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
    Sheets("Печать").Shapes("kvadrat").ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
    
    Sheets("Печать").Visible = False
    
End Su

Изменено: Михаил - 01.11.2021 13:27:40