TWordApplication - как вставить Picture?
От: i8085 Россия  
Дата: 07.05.02 22:08
Оценка:
Хотелось бы сформировать отчёт в MS Word (чтобы дать возможность пользователю его редактировать) средствами доступа к COM серверу, возможно на основе заранее сделанного шаблона, в котором кроме текста и таблиц можно было бы вставить рисунок, в частности сформированный в Delphi — приложении, например образ компонента Chart. Вторую неделю маюсь. Ни в статьях, ни в конференциях, ни в Help'е по компонентам страницы Servers (d5ms97.zip с сайта Borland) никак не могу найти функций для экспорта графики хоть в каком-нибудь формате.
Если кто знает, ткните пальцем, где можно об этом почитать и посмотреть пример кода.
Если кто разобрался — поделитесь, пожалуйста. Проект не коммерческий, для внутреннего употребления.
Re: TWordApplication - как вставить Picture?
От: pmx Россия  
Дата: 09.07.03 09:55
Оценка:
Здравствуйте, i8085, Вы писали:

I> Хотелось бы сформировать отчёт в MS Word (чтобы дать возможность пользователю его редактировать) средствами доступа к COM серверу, возможно на основе заранее сделанного шаблона, в котором кроме текста и таблиц можно было бы вставить рисунок, в частности сформированный в Delphi.


Doc.Shapes.AddPicture(filename, ...);
Описание всех интерфейсов можно посмотреть в справке по VBA из MS Office.
Re: TWordApplication - как вставить Picture?
От: mrhru Россия  
Дата: 10.07.03 04:20
Оценка:
Здравствуйте, i8085, Вы писали:

I> Хотелось бы сформировать отчёт в MS Word (чтобы дать возможность пользователю его редактировать) средствами доступа к COM серверу, возможно на основе заранее сделанного шаблона, в котором кроме текста и таблиц можно было бы вставить рисунок, в частности сформированный в Delphi — приложении, например образ компонента Chart. Вторую неделю маюсь. Ни в статьях, ни в конференциях, ни в Help'е по компонентам страницы Servers (d5ms97.zip с сайта Borland) никак не могу найти функций для экспорта графики хоть в каком-нибудь формате.

I>Если кто знает, ткните пальцем, где можно об этом почитать и посмотреть пример кода.
I>Если кто разобрался — поделитесь, пожалуйста. Проект не коммерческий, для внутреннего употребления.

Взято из работающего примера копирования картинки в Excel через буфер обмена.
var AFormat: Word;
    AData: THandle;
    APalette: HPALETTE;
begin
    Picture.Bitmap.SaveToClipboardFormat(AFormat, AData, APalette);
  Clipboard.SetAsHandle(AFormat, AData);

    //здесь надо вызвать вставку из буфера
  //WorkSheet.Paste(WorkSheet.Range[A]);
    // т.е что-то вроде
  Doc.Paste(...);
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.