v7: Таблица с картинкой в excel

Перем гТаблица,ВыбНазваниеЛиста,ВыбИмяФайла;

//-----------------------------------------------------------------------------

Функция Проверка ()

Попытка
Сервис = СоздатьОбъект("Сервис");
Исключение
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"formex.dll")=0 Тогда
Возврат 0;
КонецЕсли;
КонецПопытки;

Попытка
Табл = СоздатьОбъект("ТабличныйДокумент");
Исключение
Если ЗагрузитьВнешнююКомпоненту (КаталогИБ()+"SpreadSheet.dll")=0 Тогда
Возврат 0;
КонецЕсли;
КонецПопытки;

Сервис = СоздатьОбъект ("Сервис");
Если Сервис.АктивныйКонтекст (гТаблица) = 1 Тогда
Если ТипЗначенияСтр (гТаблица) = "Таблица" Тогда
Возврат 1;
Иначе
Попытка
гТаблица = гТаблица.Таблица;
Возврат 1;
Исключение
КонецПопытки;
КонецЕсли;
КонецЕсли;
Возврат 0;
КонецФункции

//-----------------------------------------------------------------------------

Процедура ВыполнитьСохранение ()
ИмяФайла = ВыбИмяФайла;
ИмяКаталога = ВосстановитьЗначение("ИмяКаталога");
Если ФС.ВыбратьФайл (1, ИмяФайла, ИмяКаталога, "Укажите имя файла", "Книга Microsoft Excel (*.xls)|*.xls|Документ Adobe Acrobat (*.pdf)|*.pdf",
"xls") = 0 Тогда

Возврат;
КонецЕсли;
СохранитьЗначение("ИмяКаталога",ИмяКаталога);
ВыбИмяФайла = ИмяКаталога + ИмяФайла;
Документ = СоздатьОбъект ("ТабличныйДокумент");
Если ТипЗначенияСтр(гТаблица)="Таблица" Тогда
Документ.ЗагрузитьИзТаблицы(гТаблица);
Иначе
врИмя = КаталогВременныхФайлов()+_GetPerformanceCounter()+".mxl";
гТаблица.Записать(врИмя);
Документ.Открыть(врИмя);
КонецЕсли;

Если Прав(ВыбИмяФайла,3)="xls" Тогда
Конвертер = СоздатьОбъект ("КонвертерExcel");
Книга = Конвертер.Создать ();
Книга.Листы.Добавить (ВыбНазваниеЛиста, Документ);
Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 1;
Книга.Записать (ВыбИмяФайла);
Иначе
Конвертер = СоздатьОбъект ("Йоксель.ГрафическийКонвертер.PDF");
Конвертер.ВысотаСтраницы = 297*56.7;
Конвертер.ШиринаСтраницы = 210*56.7;
Конвертер.КоличествоБитНаПиксел = 24;
Конвертер.Документ = Документ;
Конвертер.ПолеСлева = 0;
Конвертер.ПолеСверху = 0;
Конвертер.ПолеСправа = 0;
Конвертер.ПолеСнизу = 0;
Конвертер.ЗаписатьВФайл (ВыбИмяФайла);
КонецЕсли;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура СохранитьТаблицу ()
Попытка
ВыполнитьСохранение ();
Исключение
Предупреждение ("Не удалось выполнить сохранение: " + ОписаниеОшибки() + " Возможно, указано неверное имя файла или " +
"файл, куда выполняется сохранение, открыт",60);
КонецПопытки;
КонецПроцедуры

Процедура ПриОткрытии ()
СтатусВозврата(0);
Если Проверка () = 0 Тогда
Возврат;
Сообщить ("Обнаружены ошибки - сохранение таблицы будет недоступно");
КонецЕсли;
ВыбНазваниеЛиста = "Лист 1";
СохранитьТаблицу ();
КонецПроцедуры