Цитата:
|
Сообщение от AlSh17
...как из Scrollbox2 изображения в документ ворда перекинуть программно?
|
Зачем из Scrollbox, когда изображения в базе и так лежат? Можно выполнить это "псевдо-программно", загнать рисунуко из имиджа в clipboard и из него уже в сам документ напр.
Код:
Clipboard.Assign(DBImage1.Picture);
vstart:=1;
vend:=2;
WordDocument1.Frames.Add(WordDocument1.Range(vstart,vend));
i:=1;
WordDocument1.Frames.Item(i).Height:=DBImage1.Height;
WordDocument1.Frames.Item(i).Width:=DBImage1.Width;
WordDocument1.Frames.Item(i).Select;
WordApplication1.Selection.Paste;
если рамка вокруг рисунка не нужна (текстовая вставка, в ней может находиться не только текст, но и картинка, чем и пользуемся чтоб руками размер не подгонять) то добавьте сторчку WordDocument1.Frames.Item(i).Delete;