VBA Копирование эелементов управления и изображений - Microsoft Office Excel

СветланаЛеонидовна · 04.07.2011, 14:05

Есть лист Excel на котором есть различные данные в том числе элементы управления и изображения. Как скопировать с одного листа все элементы на другой. С копированием значений, форматов и шириной столбцов разобралась. метод PasteSpecial. А вот с изображениями и элементами управления загвоздка!

EducatedFool · 04.07.2011, 14:06

А почему бы, в таком случае, не скопировать лист целиком?
Это же одна строка кода...

СветланаЛеонидовна · 04.07.2011, 14:41

Не подскажите строку?

IgorGO · 04.07.2011, 14:44

Sheets(1).Copy After:=Sheets(Sheets.Count)

СветланаЛеонидовна · 04.07.2011, 14:53

данная строка почему то не работает.
что то происходит, но лист не появляется ни после всехлистов, ни после копируемого!

xlBook.Sheets(23).Copy After:=xlBook.Sheets(Sheets.Count)

СветланаЛеонидовна · 04.07.2011, 15:01

Извиняюсь за предыдущий пост. Счетчик листов работает странно, и листы копировались куда в середину всех листов!

EducatedFool · 04.07.2011, 15:28

Попробуйте так - и лист вставится последним:

Код:

xlBook.Sheets(23).Copy After:=xlBook.Sheets(xlBook.Sheets.Count)

СветланаЛеонидовна · 04.07.2011, 15:52

Спасибо! С этим я разобралась.. Можете мне подсказать в этой теме, как создать новый Excel файл с заданным именем с помощью VBA из другого листа (грубо говоря схема такая: нажала кнопку, создался файл, в него скопировался лист).. с копированием разобраласб, спасибо!

EducatedFool · 04.07.2011, 15:53

Очень просто:

Код:

xlBook.Sheets(23).Copy

Если мы не указываем в параметрах, куда производить вставку - лист копируется в новую книгу.

СветланаЛеонидовна · 04.07.2011, 15:56

Так мне надо задать имя и расположение нового файла.

04.07.2011, 14:05	#1
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	VBA Копирование эелементов управления и изображений Есть лист Excel на котором есть различные данные в том числе элементы управления и изображения. Как скопировать с одного листа все элементы на другой. С копированием значений, форматов и шириной столбцов разобралась. метод PasteSpecial. А вот с изображениями и элементами управления загвоздка!

04.07.2011, 14:06	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	А почему бы, в таком случае, не скопировать лист целиком? Это же одна строка кода... __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

04.07.2011, 14:44	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Sheets(1).Copy After:=Sheets(Sheets.Count) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

04.07.2011, 15:28	#7
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Попробуйте так - и лист вставится последним: Код: `xlBook.Sheets(23).Copy After:=xlBook.Sheets(xlBook.Sheets.Count)` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

04.07.2011, 15:53	#9
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Очень просто: Код: `xlBook.Sheets(23).Copy` Если мы не указываем в параметрах, куда производить вставку - лист копируется в новую книгу. __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

04.07.2011, 14:41	#3
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	Не подскажите строку?

04.07.2011, 14:53	#5
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	данная строка почему то не работает. что то происходит, но лист не появляется ни после всехлистов, ни после копируемого! xlBook.Sheets(23).Copy After:=xlBook.Sheets(Sheets.Count)

04.07.2011, 15:01	#6
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	Извиняюсь за предыдущий пост. Счетчик листов работает странно, и листы копировались куда в середину всех листов!

04.07.2011, 15:52	#8
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	Спасибо! С этим я разобралась.. Можете мне подсказать в этой теме, как создать новый Excel файл с заданным именем с помощью VBA из другого листа (грубо говоря схема такая: нажала кнопку, создался файл, в него скопировался лист).. с копированием разобраласб, спасибо!

04.07.2011, 15:56	#10
СветланаЛеонидовна Регистрация: 22.04.2010 Сообщений: 7	Так мне надо задать имя и расположение нового файла.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
копирование изображений из закрытого файла в активный лист	Jargunkin	Microsoft Office Excel	1	01.03.2011 00:00
Редактирование изображений на VBA	ShAI	Microsoft Office Excel	4	15.02.2011 10:43
Элементы управления в VBA	dimok5	Помощь студентам	0	08.02.2011 19:12
Вопросы по элементам управления в VBA	bag	Microsoft Office Excel	1	02.05.2009 13:20