Вставка малюнка
тепер потрібно в цей осередок вставити малюнок, хм. або вказати місце розташування малюнка на диску, головне що він відобразився там :)
Підкажіть, будь ласка, як реалізувати.
Що говорить про цю тему відповідний макрос?
я питаю не відразу як трабла виникла, покопався звичайно кілька годин сам але розуму не вистачило, підказав би
Який вигляд має макрос, який виконує ці дії?
допустимо вставити малюнок можна як: 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-й офіс по мінімуму встановив без басика > та ін.Ну тут ніхто тобі не помічник
велике спасибі, я б не додумався. Буду знати на майбутнє як копати це все.