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

[Hugo121]

Пример:

Sub tt()
TempFilePath = "C:\Windows\Temp\"

For Each sh In Sheets
sh.Copy
i = i + 1
ActiveWorkbook.SaveAs Filename:=TempFilePath & i & ".xls" ', FileFormat:=xlExcel8
ActiveWorkbook.Close False
Next
End Sub

Можно дописывать или не дописывать формат сохранения (под 2007/10 я не знаю какой формат, это можно посмотреть, записав рекордером).
Если в конце не добавлять & ".xls", то файл сохранится в формате по умолчанию, в зависимости от версии Экселя.

[IgorGO]

СветланаЛеонидовна,
свои действия в экселе можно записывать макрорекордером...
потом внимательно всматриваетесь, что записал рекордер, тщательно обрабатываете напильником под собстенные нужды и... пользуетесь...
эффективный и действенный способ получить образцы кода выполяющие те или иные действия, познакомиться с обьектами эксель их свойствами, методами, параметрами.