Excel 用VBA查找MS-Word中的图像引用

我正在尝试使用VBA将excel表格和图像从MS excel复制到MS WORD。我一直在努力找出，一旦表格和图像从excel发送到Word中，我将如何将它们引用到Word中。 经过长时间的研究，我发现了一个非常简单的答案：

设置table1=WDDoc.Tables（1）'获取word中粘贴表格的引用

表1.Shading.BackgroundPatternColor=wdColorBlueGray

我所做的：
我能够从excel中复制图像，并将其粘贴到word文档中。第

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

尝试此操作

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

---

这假设图片是“与文本对齐”（与您一样）粘贴的，并且是文档中最后一张（最下面的）在线图片

如果您认为有更好的方法来实现我上面已经编写的代码，请随意留下评论或编辑。**para.range.PasteSpecial Link:=False，DataType:=wdPasteShape，Placement:=wdInLine，DisplayAsIcon:=False。。。但这是什么错误呢？为什么要复制一系列单元格而不仅仅是图像？e、 g.使用

ActiveSheet.Shapes（“图片2”）。复制
或类似内容。我可以看到Word不希望将一系列单元格粘贴为
wdPasteShape
。
With ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count)
    .Height = 314.95 ' or whatever
End With