Нужно дописать пару строчек) Сам не знаю чего там писать)

[Bane]

Мне надо чтоб в word вставлялась картинка не оригинального размера, а примерно того что ячейка таблицы, но сохраняя пропорции картинки(не должна искажаться).
Что нужно дописать в коде?

procedure TForm14.Button2Click(Sender: TObject);
var
FileName: OleVariant;
begin
Clipboard.Assign(Image1.Picture);
WordApplication1.Connect;
FileName:='\Users\Acer\Desktop\Диплом\Программа\Menu.docx';
WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordDocument1.Frames.Item(1).Select ;
WordApplication1.Selection.Paste;
end;

________
к сожалению, на форуме нет отдельного тега форматирования для DELPHI.
Поэтому код оформляйте тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)


Модератор.

[Bane]

Ну и что никто не поможет?