Поиск ссылки на изображение в MS Word с использованием VBA

Question

Я пытаюсь скопировать таблицу Excel и изображение из MS EXCEL в MS WORD, используя VBA.Я изо всех сил пытался выяснить, как я буду ссылаться на таблицы и изображения в Word после их отправки из Excel.После долгого исследования я наткнулся на очень простой ответ для таблицы:

Range("C1:D8").Copy
Dim WDDoc As Word.Document
Dim table1 As Word.Table

Dim para As Paragraph
Set para = WDDoc.Paragraphs.Add

para.Range.PasteSpecial Link:=False, DataType:=wdPasteRTF,
Placement:=wdInLine,
DisplayAsIcon:=False

set table1 = WDDoc.Tables (1) ', чтобы получить ссылку на Вставленные таблицы в слове

table1.Shading.BackgroundPatternColor = wdColorBlueGray

Что я сделал:
Я могу скопировать изображение из Excel и просто вставить его в слово doc.пункт.

Что мне нужно?
после копирования n изображения я не могу ссылаться на это изображение в слове и, следовательно, не могу редактировать или изменять размер изображения после его вставки.

Answer 1

Попробуйте это

With ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count)
    .Height = 314.95 ' or whatever
End With

Это предполагает, что изображение вставляется «в соответствии с текстом» (как вы делаете) и является последним (самым дальним) встроенным изображением в документе.