excel - 使用 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

set table1 = WDDoc.Tables(1) ' 在 word 中获取粘贴表的参考

table1.Shading.BackgroundPatternColor = wdColorBlueGray

我所做的：
我能够从 excel 中复制图像并将其粘贴到 word doc 中。段

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

Answer 1

试试这个

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

这假定图片是“与文本一致”粘贴的（就像您所做的那样），并且是文档中最后（最下方）的内嵌图片。