| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вставка рисунка [Delphi, Windows]

Познающий ©   (2007-05-01 13:47:00) 

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

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

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

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

---

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

YurikGL ©
респект!

огромное спасибо, я бы не додумался.
буду знать на будущее как копать это всё.

---

YurikGL   (2007-05-02 20:15:00) [2]

Макрос выглядит так
   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-01 23:36:00) [3]

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

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

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

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

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

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

---

YurikGL   (2007-05-01 22:25:00) [4]

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

---

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

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

---

YurikGL   (2007-05-01 21:08:00) [6]

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

---

Наверх