Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как вставить картинку в ячейку таблицы?

Alex_AA © (2007-08-21 12:04:00)
Мастера подскажите! Как вставить картинку в ячейку таблицы?
procedure TForm1.Button1Click(Sender: TObject);
var
WRDAPP, WordDocument1, MyRange:Variant;
name:string;
begin
WRDAPP:=CreateOleObject('Word.Application');
WordDocument1:=WRDAPP.Documents.Open(Filename:='D:\txt.doc', ReadOnly:=True);
name:=WRDAPP.ActiveDocument.Shapes.AddPicture('D:\252.bmp').Name;
WRDAPP.ActiveDocument.Shapes.Item(name).Left:=2;
WRDAPP.ActiveDocument.Shapes.Item(name).Top:=2;
WRDAPP.ActiveDocument.Shapes.Item(name).Width:=45;
WRDAPP.ActiveDocument.Shapes.Item(name).Height:=35;
MyRange:=WRDAPP.ActiveDocument.Range(WRDAPP.ActiveDocument.Range.End-1, WRDAPP.ActiveDocument.Range.End-1);
WRDAPP.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=1,NumColumns:=2);
WRDAPP.ActiveDocument.Tables.Item(1).Columns.Item(1).Width:=50;
WRDAPP.ActiveDocument.Tables.Item(1).Columns.Item(2).Width:=50;

а дальше что??? Текст записывается легко
WRDAPP.ActiveDocument.Tables.Item(1).Columns.Item(2).Cells.Item(1).Range.Text:=' Текст';
как заставить картинку встать в первую ячейку?
WRDAPP.ActiveDocument.Tables.Item(1).Columns.Item(1).Cells.Item(1).InlineShapes. AddPicture(FileName:='D:\252.bmp'); // так не работает

Alex_AA (2007-08-21 14:25:00) [1]
да, я уже по такому пути и пошел
Спасибо!!!

clickmaker (2007-08-21 14:17:00) [2]

> еще какие-нибудь варианты и мысли?

как обычно: записать макрос и глянуть код

iXT (2007-08-21 14:14:00) [3]
> [7] Alex_AA © (21.08.07 13:55)

Попробуй поставь сперва курсор в то место куда надо. Потом вставляешь, и еще после этого можно поиграться с атрибутами картинки.

З.Ы. На вопрос "КАК" в справку VBA

Alex_AA (2007-08-21 13:55:00) [4]
Есть еще какие-нибудь варианты и мысли?

Alex_AA (2007-08-21 13:44:00) [5]
так не работает
пишет "Method 'InlineShapes' not supported by automation object"
Что делаю не так?

clickmaker (2007-08-21 13:31:00) [6]

> именно в первую колонку и первую строку таблицы?

ты же сам написал
WRDAPP.ActiveDocument.Tables.Item(1).Columns.Item(1).Cells.Item(1).InlineShapes. AddPicture

так не работает?

Alex_AA (2007-08-21 13:29:00) [7]
Елки-палки, вроде бы элементарно должно решаться...не понимаю уже, как надо записать

Alex_AA (2007-08-21 13:27:00) [8]
А как ему указать, что надо вставить картинку именно в первую колонку и первую строку таблицы?
WRDAPP.ActiveDocument.InlineShapes.AddPicture(FileName:='D:\252.bmp',LinkToFile: =False, SaveWithDocument:=True); просто вставляет картинку в документ! А надо в ячейку

clickmaker (2007-08-21 13:12:00) [9]
InlineShapes.AddPicture(FileName:='D:\252.bmp',LinkToFile:=False, SaveWithDocument:=True);
?

Alex_AA (2007-08-21 13:10:00) [10]
никто не знает ответ на мой вопрос?

Наверх

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