Как я могу поместить изображения из Excel в Microsoft Word?

Question

У меня есть 10 ссылок на изображения в файле Excel, и у меня есть 10 страниц в документе Microsoft Word. Я бы хотел, чтобы документ Microsoft Word импортировал каждое изображение из файла .xls и поместил его в указанное место в файле .doc .

Любой совет, как это сделать? Я знаю, что скрипты на perl/python могут, но я хотел бы знать, существует ли более удобный для пользователя вариант в Microsoft Office. Спасибо!

Answer 1

Я использовал этот код макроса VB в Excel, чтобы скопировать 29 диаграмм из одного листа Excel в документ Word.

Если у вас есть изображения, а не диаграммы, вам нужно изменить строки:

ActiveSheet.ChartObjects(i).Activate
ActiveChart.ChartArea.Copy

к чему-то, что выбирает и копирует тип данных у вас есть.

Sub copycharts()

Dim word As Object
Dim doc As Object
On Error Resume Next

Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
If Err = 429 Then
   Set word = CreateObject("word.application") 'creates a Word application
   Err.Clear
End If

With word
   .Visible = True
   .Documents.Add
End With

Sheets("charts").Select
i = 29
Do While i > 0
   ActiveSheet.ChartObjects(i).Activate
   ActiveChart.ChartArea.Copy
   With word.Selection
    'Paste Chart
   .Range.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _
       DisplayAsIcon:=False
   End With
i = i - 1
Loop
End Sub