Всем привет, мне необходимо в программе на VBA вставить рисунок в открытый документ Word. Под этим рисунком должна быть подрисуночная надпись. Как осуществит вставку рисунка с этой надписью. Может сталкивался кто с этим или знает как сделать. Я весь день искал, но так и не нашел ни какой информации. Заранее спасибо всем откликнувшимся.

Если вы совсем не знакомы с синтаксисом VBA и объектной моделью Word'а, то для написания простеших макросов можете воспользоваться кнопкой "Сервис=>Макрос=>Начать запись..." для автоматической генерации кода и последующего его изучения.

Т.е. я например начав запись сделал вставку рисунка через "Вставка=>Рисунок=>Из файла", и был сгенерирован следующий код:


Дальше не состовляет никакого труда выделить метод AddPicture, или коллекцию InlineShapes и нажать F1 для более подробного изучения различных параметров этого метода и т.п.

На ранних стадиях это очень хороший способ изучения объектной модели Excel'а или Word'а.

Это сообщение отредактировал(а) Cyric - 9.10.2006, 19:41

Cyric, огромное человеческое спасибо. У меня просто вылетело из головы про запись макроса.  

Относительно подрисуночной надписи. Как я предпологаю то это надпись типа

 Рис. 1 <имя рисунка>

Имя можно выдрать из полного пути, а номер рисунка втыкать как переменную, увеличивая её после каждой вставки. Вооо...
Как думаешь, мне так делать эту надпись или может что другое посоветуешь   

Это сообщение отредактировал(а) bAndito - 10.10.2006, 07:50

Можете воспользоваться следующим макросом

Вместо Selection там может быть Range
Он будет под указанным объектом вставлять надпись, автоматически называя её "Рисунок 1", "Рисунок 2" и т.д.

Работает точно также, как если на вставленную картинку нажать правой кнопкой и выбрать "Название".

Добавлено @ 09:52 
Можете также воспользоваться Автоназваниями.

Спасибо за совет    Все опробую