Срочно нужна подсказка! Используемый язык - VB 6.0, используемый оффис - MS OFFICE 2003. Нужно скопировать таблицу из Exel-документа и вставить ее в ячейку Word-таблицы в виде рисунка (битмапа). Я пытался сделать таким образом:

...
ExcelObj.Cells(1, 1).Resize(ExcelObj.ActiveSheet.UsedRange.Rows.Coun t, ExcelObj.ActiveSheet.UsedRange.Columns.Count).Copy
If WordObj.Selection.Tables(1).Rows.Count < nTableRow Then _
WordObj.Selection.Tables(1).Rows.Add
WordObj.Selection.Tables(1).Cell(nTableRow, nTableCol).Range.PasteSpecial link:=False, DataType:=wdPasteBitmap, DisplayAsIcon:=False
WordObj.ActiveDocument.Shapes(WordObj.ActiveDocume nt.Shapes.Count).Height = 400
...

Но дело в том, что рисунки не вставляются в ячейки таблицы, они накладываются поверх ячеек и поверх друг-друга. Должно быть: таблица из 2 столбцов и N-строк, в каждой ячейке расположена табличка в виде рисунка, я чейки должны изменять свой размер (рястягиваться) по размеру рисунков. Получается: наложение рисунков на таблицу, и новых рисунков на расположенные ранее.

Вопрос: как же все-таки заставить каждый рисунок копированием попадать в ячейку таблицы? Срочно нужны реккомендации знающего человека или специалиста.

Заранее спасибо, 
Евгений М.

Нарисовать все это в ХТМЛ. Прям в файл (битмап, само собой, отдельно...). А потом открыть его Вордом.

ХТМЛ не катит. Это называется делать через одно место. На самом деле я уже разобрался. Дело в том, что код был написан для 2000 офиса, а сейчас дорабатывается до 2003. И вся фишка заключается во входном параметре Placement. В 2000 офисе он по умолчанию равен wdInLine, а в 2003 - нет. Потому, все, что требовалось сделать, это вставить скопированное следующим образом:

WordObj.Selection.Tables(1).Cell(nTableRow, nTableCol).Range.PasteSpecial Link:=False, Placement:=wdInLine, DataType:=wdPasteBitmap, DisplayAsIcon:=False.

Огромное спасибо за попытку помочь. Вопрос закрыт.