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

Question

我正在尝试使用VBA将Excel表和图像从MS EXCEL复制到MS WORD。 我试图找出将表格和图像从excel发送出去后如何将它们引用到Word中。 经过长时间的研究，我遇到了一个非常简单的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 

设置table1 = WDDoc.Tables（1）'以单词形式获取粘贴表的引用

table1.Shading.BackgroundPatternColor = wdColorBlueGray

我做了什么：
我可以从excel复制图像并将其粘贴到Word文档中。 段

我需要的？
复制n张图片后，我无法用文字引用该图片，因此一旦粘贴就无法编辑或调整其大小。

Answer 1

尝试这个

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

这假定图片被粘贴为“与文本一致”（如您所做的那样），并且是文档中最后一个（最向下的）嵌入式图片。