Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Вставить таблицу Exel в ячейку Word таблицы в виде рисунка

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

...
ExcelObj.Cells(1, 1).Resize(ExcelObj.ActiveSheet.UsedRange.Rows.Count, 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.ActiveDocument.Shapes.Count).Height = 400
...

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

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

Заранее спасибо,
Евгений М.
13K
18 февраля 2007 года
Ser Artur
5 / / 06.10.2005
Зачем кодом
Удерживая клавишу Shift ЛКмыши входишь Edit>Сopy Picture и ПАСТЕ в любом удобном месте
13K
18 февраля 2007 года
Ser Artur
5 / / 06.10.2005
ВСЁ ГЕНИАЛЬНОЕ ПРОСТО ВЫ СОГЛАСНЫ
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог