使用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中查找圖像引用

回答

相關問題