на основе списка сотрудников из БД создаю Бейджик как документ WORD.
в документ кидаю ФИО, должность и фото.
проблем нет.
заковырка в том что фотки различаются по размеру.
мне необходимо изменить высоту ФОТО...
не знаю как обратиться к фото..

гружу фото так:
...
TableWord.Cell(3, 1).Select
DocWord.Application.Selection.InlineShapes.AddPicture FileName:=Form1.picname, LinkToFile:=False, SaveWithDocument:=True
DocWord.Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
...

пытался просмотреть что вообще загрузил:
d=DocWord.Application.Selection.InlineShapes.count

результат d=0
исходник прилагаю

help!

Спасибо за попытку. Хотелось бы конкретнее.
Уточняю.
Я Пишу в VB6 и как примерно все должно работать представляю.
Мне быконкретный примерчик.

Дело в том что я пробовал включить запись макроса в WORD поправить размер картинки и просмотреть макрос. Затем скопировал код в VB6.
Вот такой код получился:
DocWord.Application.Selection.InlineShapes(1).LockAspectRatio = msoTrue
DocWord.Application.Selection.InlineShapes(1).Height = MillimetersToPoints(50)

Результат выполнения:
Run-time error "5941"
Запрашиваемый номер семейства не существует.

я пытался посмотреть есть ли вообще в наборе какие нть объекты:
d=DocWord.Application.Selection.InlineShapes.count
получаю d=0

В общем туплю по полной.
Если есть конкретно что сказать об этом, подскажите.
Теоретиков просьба не беспокоиться. Я ж не зря код выложил.

в общем ребята я наверное извращенец...
но прямого пути мне никто так и не подсказал, поэтому делюсь своей идеей.
В общем чтобы изменить размер загружаемой картинки я воспользовался таблицей с невидимыми границами.
Если ячейке таблицы жестко задать ширину, то фото вставленное в эту ячейку автоматически отмаштабируется с сохранением пропорций.
Вот такая песТня.

ПРоект прилагаю