How to change a picture into Word doc by another picture using Excel VBA

[paulosq]

Experts, please, I need help.


How do I replace a figure (type 13, msoPicture) in a Word document by a figure that is on the clipboard, maintaining the characteristics (position, alignment, page size) of the image that is in the Word?


What happens is that I have a macro in Excel that runs through all the worksheets in a workbook, individually copying intervals and graphics, previously defined and pasting these as .PNG or .WMF objects within a Word document.


The macro already does the same thing in PowerPoint and works perfectly, but there are days when I'm trying to do the same thing in Word and I can not. Always occurs some different error.

I am using MS Office 2013 32-bits over Windows 8.1 64-bits


I appreciate any help and apologize for my bad English.

 

[Worf]

Oi Paulo

See if this helps:

'Excel module
Sub PauloSq()
Dim wap As Word.Application, h%, w%
Set wap = GetObject(, "Word.Application")
wap.Visible = True
With ActiveDocument.InlineShapes(1)     ' replace first Word picture
    h = .Height
    w = .Width
    .Select
End With
    Sheets("Plan1").Shapes(2).Copy      ' with second Excel picture
    wap.Selection.Paste
With ActiveDocument.InlineShapes(1)
    .Height = h
    .Width = w
End With
End Sub