Вставка рисунка

← →
Познающий (2007-05-01 13:47) [0]

W1.ActiveDocument.Tables.Item(1).Columns.Item(1).Select;

теперь нужно в эту ячейку вставить рисунок,
хм... или указать месторасположение рисунка на диске,
главное что бы он отобразился там :)

Подскажите пожалуйста как реализовать.

С праздником всех!

← →
YurikGL © (2007-05-01 21:08) [1]

Что говорит на эту тему соответствующий макрос?

← →
Познающий (2007-05-01 21:46) [2]

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

← →
YurikGL © (2007-05-01 22:25) [3]

Как выглядит макрос, выполняющий эти действия?

← →
Познающий (2007-05-01 23:36) [4]

без понятия :(

допустим вставить рисунок можно как:
name:= W.ActiveDocument.Shapes.AddPicture(FileName).Name;

Прога должна вывести в офисный документ анкету работника в виде таблицы и в одну из ячеек вставить его фотку, имеющуюся в базе данных.
Вот и думаю как бы проще это решить.
По-ходу хочу разобраться для себя с двумя моментами вставки:
- если есть рисунок в виде Tbitmap
- если рисунок находится в файле на диске

по-ходу думаю что нужно select необходимую ячейку и далее добавлять картинку, но пока что-то не выходит.

ну так уважаемый YurikGL, как выглядит макрос выполняющий эти действия?

я ещё в добавок 2007-й офис по минимуму установил без басика и пр.

Макрос выглядит так
Selection.InlineShapes.AddPicture FileName:= _ "C:\Documents and Settings\YurikGL.YURIK.000\Desktop\1171147971.jpg", _ LinkToFile:=False, SaveWithDocument:=True

Значит код будет выглядить примерно так
procedure TForm1.Button2Click(Sender: TObject); var vr1:olevariant; App : Variant; begin try WordApplication1.Connect; WordApplication1.Visible:=true; WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); vr1:=5; WordApplication1.ActiveDocument.Tables.Add(WordApplication1.Selection.Range,vr1, vr1,EmptyParam,EmptyParam); WordApplication1.ActiveDocument.Tables.Item(1).Columns.Item(1).Select; WordApplication1.Selection.InlineShapes.AddPicture("C:\Documents and Settings\YurikGL.YURIK.000\Desktop\1171147971.jpg",EmptyParam,EmptyParam,EmptyPa ram); finally WordApplication1.Disconnect; end;

> я ещё в добавок 2007-й офис по минимуму установил без басика
> и пр.
Ну тут никто тебе не помошник

← →
Познающий (2007-05-02 23:25) [6]

Вставка рисунка Найти похожие ветки