使用VBA在MS Word中查找图像引用

我想使用VBA将Excel表格和图像从MS EXCEL复制到MS WORD。我一直在努力研究如何从Excel中发送表格和图像到word中。经过长期的研究我碰到一个很简单的答案来为表后：使用VBA在MS 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 
一套表1 = WDDoc.Tables（1）“字获得的粘贴表参考

table1.Shading。 BackgroundPatternColor = wdColorBlueGray

我做了什么：
我能够复制从Excel的图像和简单地粘贴它Word文档。段。

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

来源

2011-06-20 thesummersign

如果您认为有更好的方法来实现我已经写过的代码，可以随时留下评论或编辑。 – thesummersign

试试这个

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

这假设图片粘贴“在与文本”（你做的），并且是最后（最远向下）在线图片在文档中。

来源

2011-06-20 16:18:10

** para.range.PasteSpecial链接：= False，DataType：= wdPasteShape，Placement：= wdInLine，DisplayAsIcon：= False ...但给出错误 – thesummersign

什么错误？你为什么要复制一系列单元格Range（“C1：D8”）而不是图像？例如使用'ActiveSheet.Shapes（“图片2”）。复制'或类似。我可以看到Word不想将一系列单元格粘贴为“wdPasteShape”。 –

这是一种小小的调整。谢谢。 – thesummersign

使用VBA在MS Word中查找图像引用

回答

相关问题