Como posso colocar imagens do Excel no Microsoft Word?

Question

Eu tenho 10 links para imagens em um arquivo do Excel e tenho 10 páginas em um documento do Microsoft Word. Gostaria que o documento do Microsoft Word importasse cada imagem do arquivo .xls e a colocasse em um local designado no arquivo .doc .

Algum conselho sobre como fazer isso? Eu sei scripts perl / python pode, mas eu gostaria de saber se existe uma opção mais amigável ao usuário no Microsoft Office. Obrigado!

    

Answer 1

Eu usei esse código de macro VB no Excel para copiar 29 gráficos de uma planilha do Excel para um documento do Word.

Se você tiver imagens em vez de gráficos, precisará alterar as linhas:

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

para algo que seleciona e copia o tipo de dados que você possui.

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