Как скопировать "картинку" вместе с ячейками, на другой лист средствами VBA

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

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

04.09.2014 13:38:25

Здравствуйте, уважаемые специалисты по эксель помогите советом:
На листе №1 есть таблица "содержащая" рисунок

Вопрос:
как средствами VBA скопировать содержимое таблицы,
вместе с картинкой, на другой лист?

Что пробовал:
Копирую через диапазон range
копируются только ячейки, но без нужной картинки

Мой код:

Код
Sub копирование_рисунка_с_формой() Range("Лист1!D16:K35").Copy Range("Лист2!E16").PasteSpecial End Sub

Пример файла приложил, ексель 2010 х64
Поправьте меня, что я делаю не так?

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

Опыты с копирование картинки по листам.xlsm (36.31 КБ)

Изменено: Dmitriywu - 04.09.2014 13:51:11

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 04.09.2014 13:44:00 Сообщение автора отредактировано. Есть кнопки для форматирования сообщения. Не бойтесь их, током не ударит. Не нужно столько пустых строк.

Dmitriywu Пользователь Сообщений: 24 Регистрация: 02.07.2014	#3 04.09.2014 13:47:00 Спасибо за совет! Сообщение первое, учту на будущее

Юрий М

Модератор

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

Контакты см. в профиле

04.09.2014 14:05:46

Код
Sub Макрос1() Range("E17:J34").Copy Sheets("Лист2").Range("A1") End Sub

Dmitriywu

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

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

04.09.2014 14:14:56

Спасибо огромное! Респект, почет и уважуха !
Спасли мой проект

Подскажите а что прописать чтобы удалить содержимое вместе с картинкой
Пробовал

Код
Sheets("Лист2").Range("A1:G19") .Delete Sheets("Лист2").Range("A1:G19").Clear

Картинка остается...
Есть кнопки для форматирования сообщения!

Юрий М Модератор Сообщений: 61077 Регистрация: 14.09.2012 Контакты см. в профиле	#6 04.09.2014 14:19:19 А удаление какое отношение имеет к ЭТОЙ теме?

Юрий М Модератор Сообщений: 61077 Регистрация: 14.09.2012 Контакты см. в профиле	#7 04.09.2014 14:26:17 Замените Copy на Cut

Dmitriywu

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

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

04.09.2014 14:26:56

?????????? мне новую тему создать ???????????
просто для меня это части одного большого вопроса)))),
как вставлять картинки на лист рассказали - огромное спасибо!
остался вопрос - как их удалять
ЗЫ
если создавать тему "задача вставлять картинки с образцами лицензий в переменное место на листе"
пришлось бы очень долго объяснять что именно нужно ...
Простите если не туда, я еще только учусь 8-0

Изменено: Dmitriywu - 04.09.2014 14:30:33

Юрий М Модератор Сообщений: 61077 Регистрация: 14.09.2012 Контакты см. в профиле	#9 04.09.2014 14:28:48 Всё у Вас не слава Богу - зачем столько пустых строк в сообщении? Исправляйте! Вы полагаете, если проект один, то теперь ВСЕ вопросы по нему можно в одну тему? Так не пойдёт.