Скачать: CL | DM;

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

← →
Alex_AA ©   (2007-08-21 12:04) [0]

Мастера подскажите! Как вставить картинку в ячейку таблицы?
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 13:10) [1]

никто не знает ответ на мой вопрос?

---

← →
clickmaker ©   (2007-08-21 13:12) [2]

InlineShapes.AddPicture(FileName:="D:\252.bmp",LinkToFile:=False, SaveWithDocument:=True);
?

---

← →
Alex_AA ©   (2007-08-21 13:27) [3]

А как ему указать, что надо вставить картинку именно в первую колонку и первую строку таблицы?
WRDAPP.ActiveDocument.InlineShapes.AddPicture(FileName:="D:\252.bmp",LinkToFile: =False, SaveWithDocument:=True); просто вставляет картинку в документ! А надо в ячейку

---

← →
Alex_AA ©   (2007-08-21 13:29) [4]

Елки-палки, вроде бы элементарно должно решаться...не понимаю уже, как надо записать

---

← →
clickmaker ©   (2007-08-21 13:31) [5]

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

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

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

---

← →
Alex_AA ©   (2007-08-21 13:44) [6]

так не работает
пишет "Method "InlineShapes" not supported by automation object"
Что делаю не так?

---

← →
Alex_AA ©   (2007-08-21 13:55) [7]

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

---

← →
iXT ©   (2007-08-21 14:14) [8]

> [7] Alex_AA ©   (21.08.07 13:55)

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

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

---

← →
clickmaker ©   (2007-08-21 14:17) [9]

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

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

---

← →
Alex_AA ©   (2007-08-21 14:25) [10]

да, я уже по такому пути и пошел
Спасибо!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c