Вставка и редактирование рисунков в Word. VBA.

[RAN.]

Приветствую.
Другой день бодаюсь со вставкой рисунков в Word.

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

        wd.Bookmarks.Item(marker).Select
        wa.Selection.InlineShapes.AddPicture Filename:=basep & aan, LinkToFile:= _
                                             False, SaveWithDocument:=True
        wa.Selection.Tables(1).Select
        With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
'            Heght = .Height: wigt = .Width    ' костыль
            .LockAspectRatio = -1    'msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                        .Height = 141.88    'Высота рисунка 227 = 8 см
'            .Height = 100 '360 ': .Width = .Height * (wigt / Heght)    ' костыль
        End With

Без костыля меняется только либо высота, либо ширина. При этом ошибки нет
Сегодня создал шаблон с таблицей в 1 ячейку, написал код для вставки

            For Each x In coll
                .Selection.InsertRowsBelow 1
                .Selection.TypeText Text:="Фото № " & x(1) & " " & x(2)
                .Selection.EndKey Unit:=5, Extend:=1    ' 5   1
                .Selection.ParagraphFormat.KeepWithNext = True
                .Selection.InsertRowsBelow 1
                .Selection.ParagraphFormat.KeepWithNext = False
                .Selection.InlineShapes.AddPicture Filename:=x(3), LinkToFile:= _
                                                   False, SaveWithDocument:=True
                wa.Selection.EndKey Unit:=5, Extend:=1    ' 5   1
                With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
                    .LockAspectRatio = -1    ' msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                    .Width = 100 '454    'Ширина рисунка
                End With
            Next

Все работает.

Аналогичным кодом вставляю рисунок на лист, но вылетаю с ошибкой.

marker = "ana1"
            wd.Bookmarks.Item(marker).Select
            wa.Selection.InlineShapes.AddPicture Filename:=iFulleName, LinkToFile:= _
                                                 False, SaveWithDocument:=True
            With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
                .LockAspectRatio = -1    ' msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                .Width = 400    'Высота рисунка 227 = 8 см
            End With

Подскажите, где собака порылась? И как правильно?

Обработка идет из Excel.

[Казанский]

Может тут?

wd.Bookmarks.Item(marker).Select
wa.Selection.InlineShapes.AddPicture

[RAN.]

Эти строки работают, рисунок вставляется.
Не могу изменить размеры
В первом и последнем коде не работают фрагменты

      With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
          .LockAspectRatio = -1    ' msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
           .Width = 400    'Высота рисунка 227 = 8 см
       End With

В первом случае игнорируется строка

.LockAspectRatio = -1

в третьем ошибка на строке

With wa.Selection.InlineShapes(1)

Усомнился, и еще рад проверил
При смене wa и wd получаю объект не поддерживает свойство или метод.

        Set wa = CreateObject("Word.Application")
        Set wd = wa.Documents.Add(ThisWorkbook.Path & "\" & "шаблон фото.docx")

[viter.alex]

Помнится мне, что у меня тоже не получалось. И я пересчитывал размер, если нужно было сохранить пропорции. Судя из объяснения на мсдн

True if the specified shape retains its original proportions when you resize it. False if you can change the height and width of the shape independently of one another when you resize it. Read/write MsoTriState.

Этот параметр не реагирует на программное изменение ширины или высоты, хотя не совсем ясно, что они понимают под resize.
Для удобства, помести картинку в переменную:

Dim InShp As InlineShape
Set InShp = wa.Selection.InlineShapes.AddPicture Filename:=basep & aan, LinkToFile:= False, SaveWithDocument:=True

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

[RAN.]

Идея интересная. Поковыряю.
Не ясно, почему при вставке через закладку не работает (1), а при вставке в таблицу напрямую (2) - работает.
И как достучаться до рисунка, вставленного помимо таблицы?

PS Пересчитывать размер - костыль в коде 1.

[RAN.]

Потестил.
Переменная помогла. Спасибо.

Однако, похоже в файле Word глюк.
Тестовый работает, а основной без костыля не хочет.

[Zaolog]

Добрый день. Подскажите пожалуйста как с помощью макроса не только вставить изображение из буфера, но и поменять ему обтекание на "перед текстом" и выставить определенные размеры. Часто приходится копировать картинки из интернета и вставлять в ворд. И каждый раз приходится все в ручную делать.
Макрорекордер дает записать только первое действие, вставку.
После работать не хочет. Запись включается, но с рисунком ничего сделать не могу.
Код:

Sub Макрос1()
'
'вставка из буфера
Selection.PasteAndFormat (wdPasteDefault) 'записано макрорекордером
End Sub