Как скопировать таблицу с картинкой на ПОСЛЕДНЮЮ СТРОЧКУ другого листа VBA

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

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

04.09.2014 16:51:06

Добрый вечер!
Макрос ищет последнюю свободную строчку на 2-м листе и вставляет туда таблицу с первого листа (все работает но не вставляет картинку)

На первом листе есть таблица содержащая картинку, нужно ее вставить на второй лист в свободное место.
Использую для этого скрип: ищу последнюю свободную строчку на втором листе и копирую туда таблицу с первого листа.
Все уже работает, но
при копировании таблицы- картинка не копируется, копируются только значения ячеек!
Какую функцию мне прописать для .PasteSpecial чтобы копировалась картинка?

PS
Ексель 2010 х64. Надеюсь на Вашу конструктивную помощь

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

Копирую таблицу на второй лист в свободное место.xlsm (38.53 КБ)

Sanja

Модератор

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

04.09.2014 17:00:13

В свойствах картинки поставьте - перемещать и изменять объект вместе с ячейками

можно программно

Код
Sheets("Лист1").Shapes.Range(Array("Picture 1")).Placement = xlMoveAndSize

Изменено: Sanja - 04.09.2014 17:02:51

Согласие есть продукт при полном непротивлении сторон

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

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

04.09.2014 17:17:11

Код
ThisWorkbook.Worksheets("Лист1").Range("E17:J34").Copy Worksheets("Лист2").Cells(LR + 1, 1)

Юрий М

Модератор

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

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

04.09.2014 22:41:18

Цитата
Dmitriywu пишет: картинка не копируется , копируются только значения ячеек!

Ну ведь уже показал, как нужно копировать...

Dmitriywu Пользователь Сообщений: 24 Регистрация: 02.07.2014	#5 05.09.2014 08:27:55 Спасибо всем огромное! Все работает! Как же круто, когда есть, где получить ответ! ps Sanja - ваш вариант в моей версии ексель почему то не работает... Изменено: Dmitriywu - 05.09.2014 08:43:47

Читают тему