Экспорт картинок из Нава в Эксель

[Predatore]

Доброго времени суток, товарищи!
Есть требование, что бы некий отчёт формировался в Эксель. Экспорт в Excel я делаю не через таблицу Excel Buffer (370), а через Automation, так больше возможностей по работе с Экселем. И всё бы ничего, если бы в этот Эксель не нужно было ещё и картинки выгружать из Нава. Так вот, не подскажет ли кто, как выгрузить картинку из Нава в Эксель?
Или может кто может подсказать, где взять хороший хелп по Automation, а то я как-то искал, но ничего толкового так и не нашёл
Спасибо за внимание!

[Thrice]

была подобная задачка для формирования Прайс Листа, сделал так:

Name DataType Subtype Length
vr Boolean
PicInt Integer
PicTop Decimal
PictureFile File
PicLeft Integer

PicLeft:=580;
vr:=EVALUATE(PicInt,Cnt);
PicTop:=XlWrkSht.Range('H1:H'+FORMAT(PicInt-1)).Height;
PictureFile.CREATETEMPFILE;
PicturePath:=PictureFile.NAME;
PictureFile.CLOSE;
"Picture/Text".EXPORT(PicturePath,FALSE);
XlWrkSht.Range('c' + Cnt+':h' + Cnt).RowHeight:=40;
XlWrkSht.Shapes.AddPicture(PicturePath, 1, 1, PicLeft, PicTop-40,40,40);

выгружаемые рисунки маштабирую до размеров 40*40
Cnt - счетчик строк

P.S.: при небольших объемах данных (до 800 строк), все хорошо выгружается во всех версия офиса (2003-2010), но если объем превышает указанное кол-во строк, то на 2003 офисе все идет через Ж..., зато 2007 и 2010 отрабатывают на ура!

и еще, если все же надумаете чистить за собой хвосты, в виде временных файлов, то делайте это на OnPostReport()

[GRIZZLY_imported]

Цитата:

Сообщение от Predatore

Или может кто может подсказать, где взять хороший хелп по Automation, а то я как-то искал, но ничего толкового так и не нашёл Спасибо за внимание!

Ничего лучше встроенного по VBA не встречал

[Predatore]

Отлично!!! Спасибо огромное!
Вот только никак не разберусь, что делать если мне не нужно масштабировать картинки? Мне нужно выгружать их в реальном размере, которого у меня никак не получается узнать

[Predatore]

Цитата:

Сообщение от Predatore

Вот только никак не разберусь, что делать если мне не нужно масштабировать картинки? Мне нужно выгружать их в реальном размере, которого у меня никак не получается узнать

Ковыряние в VBA привело вот к такой строчке ActiveSheet.Pictures.Insert (PicturePath), которая замечательно работает в Эксесле, но в Наве ругается на то, что не знает, что такое Insert (Не знаю, принципиально ли то, что вместо ActiveSheet, в Наве я использую WorkSheet, как мне кажется, по сути это одно и то же)

Так же, облазив инет, наткнулся и на такую штуку, отлично работающую в самом Экселе, огромным приемуществом оной является то, что через Picture, картинкой можно вертеть как угодно.

Dim PicRange As Range: Set PicRange = Range("A1:B2")
Dim ph As Picture: Set ph = PicRange.Parent.Pictures.Insert(PicturePath)
ph.Top = PicRange.Top: ph.Left = PicRange.Left

Только в этом случае, я не могу найти Picture в Наве. Нашёл другой объект, называется Graphic, но когда я пытаюсь скомпилить в Наве

Graphic :=  XlRange.Parent.Pictures.Insert(PicturePath);

Он опять же ругается на то, что не знает что такое Insert

[romeo]

Цитата:

Сообщение от Predatore

Он опять же ругается на то, что не знает что такое Insert

Попробуйте описать ряд промежуточных объектов в коде, чтобы получилось ОБЪЕКТ.Insert(). Нав иногда не воспринимает ОБЪЕКТ.ОБЪЕКТ.Метод

[Predatore]

Цитата:

Сообщение от romeo

Попробуйте описать ряд промежуточных объектов в коде, чтобы получилось ОБЪЕКТ.Insert(). Нав иногда не воспринимает ОБЪЕКТ.ОБЪЕКТ.Метод

Я тут MSDN покапал, проблема в том, что Pictures является скрытым Методом, т.е. к нему невозможно обратиться вне VBA. Что есть очень печально.
Сейчас пока вижу только один выход: выгружать картинку из Нава в файл, в Эксель писать в ячейку какой-нибудь флаг и уже из самого экселя реагировать на этот флаг и самостоятельно загружать картинку через Pictures. Метод этот мне совершенно не нравится, поэтому если у кого есть какие соображения, как можно узнать размер картинки в Наве или как вставить в Эксель картинку оригинального размера, я бы с удовольствием их выслушал.

[romeo]

У нас работает вот это
xlShape := xlWorkSheet.Shapes.AddPicture(FileName, 1, 1, Left, Top, Width, Height);
не помню, что это за 1, 1, но остальные аргументы - отступ слева, справа, ширина, высота. Не знаю, что будет если поиграться с аргументами ширина, высота или вообще не указывать их.

[Predatore]

Цитата:

Сообщение от romeo

У нас работает вот это
xlShape := xlWorkSheet.Shapes.AddPicture(FileName, 1, 1, Left, Top, Width, Height);
не помню, что это за 1, 1, но остальные аргументы - отступ слева, справа, ширина, высота. Не знаю, что будет если поиграться с аргументами ширина, высота или вообще не указывать их.

Это у меня тоже работает. Первая 1 я не совсем понял что значит, вторая это "не сохранять" картинку при сохранении файла. Что бы сохранять, должно быть -1.
Проблема только в том, что мне не известны оригинальные значения Width и Height картинки. И картинки у меня идут с различными соотношением высоты и ширины. А так бы отмасштабировал бы их в один размер и делов то.

[Predatore]

У меня вопрос, который уже не касается картинок, но новую тему решил не создавать, т.к. вопрос опять же по Экселю.
И так, есть шаблон, в который выгружаются строки. Проблема в том, что строки эти группируются в отдельные блоки. У каждого такого блока есть хедер и футер. Т.е. сначала идёт строка с хедером, потом строки заказа, потом футер, потом снова хедер, другие строки заказа и т.д. Всё это красиво оформляется, разными цветами, границами...
В чём собственно проблема. Проблема в том, что у меня 3 шаблона строки. А я не могу копировать строки в Экселе из Навижена Т.е. пока я рисую строки заказа, всё хорошо, при вставке новой строки, она копирует форматирование из предыдущей (первый хедер - он же шаблон, уже нарисован). Потом дело доходит до футера (он тоже уже есть т.к. является шаблоном). А вот потом мне нужно вставить хедер для другой пачки строк. Я хочу скопировать строку с моим шаблонным хедером, и вставить её, но у меня это не получается!
Я делаю так:

xlRange := xlWorkSheet.Range ('A1');  
 xlRange.EntireRow.Copy;

xlRange := xlWorkSheet.Range ('A10')
 xlRange.EntireRow.Insert;

Строки у меня исправно вставляются, но нифига не копируются

[Milk]

Попробуйте вместо xlRange.EntireRow.Insert написать xlWorkSheet.Paste

[.Quattro.]

Я таким образом копирую строки:

XlSelection := xlSheet.Range(STRSUBSTNO('%1:%1',RowNo));
XlSelection.Copy;
xlRange := xlSheet.Range(STRSUBSTNO('%1:%1',RowNo + 1));
xlRange.Insert;
xlApp.CutCopyMode(0);