Не понятна работа кода при вставке картинки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Не понятна работа кода при вставке картинки (Макросы/Sub)

master-dd

Дата: Четверг, 06.12.2018, 12:10 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 78

Репутация: 1 ±

Замечаний: 0% ±

2016

Добрый день всем!

Помогите разобраться с таким вопросом. Я написал код, который при определённом условии вставляет сохранённые на отдельном листе (Pic) картинки в нужную ячейку целевого листа. Вот часть этого кода, которая вызывает у меня вопрос:

[vba]

Код

Sub Pic_7_9()

    Sheets("Pic").Select
    Sheets("Pic").Shapes.Range(Array("Picture 11")).Select
    Selection.Copy

    Sheets("Test_18x25").Select
    Sheets("Test_18x25").Range("B4:B12").Select
    Sheets("Test_18x25").Paste

End Sub

[/vba]

При этом мне необходимо, чтобы лист Pic всегда был скрытым. Но когда я, по обыкновению, оптимизирую код, вот так:
[vba]

Код

Sub Pic_7_9()

    Sheets("Pic").Shapes.Range(Array("Picture 11")).Copy
    Sheets("Test_18x25").Range("B4:B12").Paste

End Sub

[/vba]
... то получаю ошибку:
Run-time error '438'
Object doesn't support this property or metod

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