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

Question

我正在尝试使用VBA将excel表格和图像从MS EXCEL复制到MS WORD。我很难找到从excel发送后如何将表格和图像引用到Word中。 经过长时间的研究，我遇到了一个非常简单的答案：

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）'获取word中粘贴表的引用

     

table1.Shading.BackgroundPatternColor = wdColorBlueGray

我做了什么：
我可以从excel复制图像，只需将其粘贴到word doc。第

我需要什么？
复制n图片后，我无法在单词中引用该图片，因此粘贴后无法编辑或调整图像大小。

Answer 1

试试这个

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

这假设图片是“与文本一致”（正如您所做的那样）并且是文档中最后一个（最下面的）内嵌图片。