使用VBA在MS Word中查找图像参考

Question

I am trying to copy an excel Table and image from MS EXCEL to MS WORD using VBA. I was struggling to find out how will I reference the tables and images into the Word once they are sent from excel. After a long research I came across a very simple answer for table :

 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) ' getting reference for the Pasted tables in word

table1.Shading.BackgroundPatternColor = wdColorBlueGray

What I have done:
I am able to copy an image from excel and simply pasting it on to word doc. para.

What I need?
after copying n picture i am not able to refer to that picture in word and hence not able to edit or resize the image once it is pasted.

Answer 1

Try this

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

This assumes that the picture is pasted "in line with text" (as you do) and is the last (furthest down) in-line picture in the document.