Страница: 1 |
ActiveDocument.Tables(1).Cell(1, 1).Select Selection.InlineShapes.AddPicture FileName:= _ Спасибо, Гибыч, спасибо, мастер. Огромное спасибо. выручил. Оцеловал бы. Но не модно... Да и еще... оч... удобно пользоваться записью макросов в Ворде для решения данных проблем, чем я и воспользовался Дмитрий Борзенков, просто возьми и воспользуйся функцией "Запись макроса...". Поизменяй размеры картинки, повставляй таблиц, поудаляй их... Потом нажми Alt+F11 и посмотри в модуль, чего он там тебе понаписал. Именно таким способом можно перебрать весь VBA для Word, чем мы с Гибычем и пользуемся Страница: 1 |
Вопрос: программное создание документа Word с таблицей ...
Добавлено: 14.09.02 13:35
Автор вопроса: Дмитрий Борзенков | Web-сайт:
в уже созданную таблицу документа Word средствами VB требуется вставить картинку. В одну из колонок. Как бы это сделать? Документ создал, таблицу нарисовал, а картинку вставить пока не могу...
Метод Selection.Paste вставляет картинку куда угодно, но только не в таблицу. полный абзац. помогите плиз.
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа:
Гибыч
Вопросов: 1
Ответов: 58
Профиль | | #1
Добавлено: 14.09.02 15:42
"D:\Documents and Settings\Æåíèõîâ.NPASSAGE\My Documents\My Pictures\gegemonia\hae_02.jpg" _
, LinkToFile:=False, SaveWithDocument:=True
Номер ответа: 2
Автор ответа:
Дмитрий Борзенков
Вопросов: 14
Ответов: 57
Web-сайт:
Профиль | | #2
Добавлено: 14.09.02 16:01
Номер ответа: 3
Автор ответа:
Гибыч
Вопросов: 1
Ответов: 58
Профиль | | #3
Добавлено: 14.09.02 16:03
Номер ответа: 4
Автор ответа:
Дмитрий Борзенков
Вопросов: 14
Ответов: 57
Web-сайт:
Профиль | | #4
Добавлено: 14.09.02 16:52
только вот одна мелочь. картинка вставляется какая-то увеличенная. Не подскажешь, как бы изменять ее размеры?
Номер ответа: 5
Автор ответа:
Гибыч
Вопросов: 1
Ответов: 58
Профиль | | #5
Добавлено: 14.09.02 16:59
ActiveDocument.Tables(1).Cell(1, 1).Select
Dim k As InlineShape
Set k = Selection.InlineShapes.AddPicture(FileName:= _
"..." _
, LinkToFile:=False, SaveWithDocument:=True)
k.Width = 100
Номер ответа: 6
Автор ответа:
POST
Вопросов: 14
Ответов: 269
Web-сайт:
Профиль | | #6
Добавлено: 14.09.02 17:01
Номер ответа: 7
Автор ответа:
Дмитрий Борзенков
Вопросов: 14
Ответов: 57
Web-сайт:
Профиль | | #7
Добавлено: 14.09.02 17:12
и еще мне бы узнать, как там(в Worde) междустрочник изменять. ну расстояние между строками...
Номер ответа: 8
Автор ответа:
Дмитрий Борзенков
Вопросов: 14
Ответов: 57
Web-сайт:
Профиль | | #8
Добавлено: 14.09.02 17:30
всем огромное спасибо. На вышепоставленный вопрос ответ уже получил, посмотрев записи макросов. действительно оч удобная штука. эффективная, доступная даже тем кто с VBA вообще не дружит. Век живи - век учись. еще раз спасибо