Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не понятна работа кода при вставке картинки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не понятна работа кода при вставке картинки (Макросы/Sub)
Не понятна работа кода при вставке картинки
master-dd Дата: Четверг, 06.12.2018, 12:10 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 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. Заранее всем, кто откликнется, спасибо.
К сообщению приложен файл: Pic_copy.xlsb(80.8 Kb)


Сообщение отредактировал master-dd - Четверг, 06.12.2018, 12:11
 
Ответить
СообщениеДобрый день всем!

Помогите разобраться с таким вопросом. Я написал код, который при определённом условии вставляет сохранённые на отдельном листе (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. Заранее всем, кто откликнется, спасибо.

Автор - master-dd
Дата добавления - 06.12.2018 в 12:10
boa Дата: Четверг, 06.12.2018, 12:36 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 277
Репутация: 57 ±
Замечаний: 0% ±

2013, 365
master-dd,
[vba]
Код
            Sheets("Pic").Shapes("Picture 11").Copy
            Sheets("Test_18x25").Range("B4").Select
            Sheets("Test_18x25").Paste
[/vba]


 
Ответить
Сообщениеmaster-dd,
[vba]
Код
            Sheets("Pic").Shapes("Picture 11").Copy
            Sheets("Test_18x25").Range("B4").Select
            Sheets("Test_18x25").Paste
[/vba]

Автор - boa
Дата добавления - 06.12.2018 в 12:36
master-dd Дата: Четверг, 06.12.2018, 14:04 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 1 ±
Замечаний: 0% ±

2016
boa, спасибо! Действительно работает....

Тема закрыта!
 
Ответить
Сообщение boa, спасибо! Действительно работает....

Тема закрыта!

Автор - master-dd
Дата добавления - 06.12.2018 в 14:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не понятна работа кода при вставке картинки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!