Copy Picture from Excel to Word and insert behind the text

[erufailon86]

Hello,

I'm creating a script to take pictures from a excel document and insert them into a word document as part of a document creation script. I'm able to copy and past the picture into the word document but pastespecial only allows for pictures to be inserted as inline or above text. Is there a way to copy a picture and paste it into a word document behind the text?

Sub CopyPicturetoWord()
 
 Dim WordApp As Object
 Dim WordDoc As Object
 Set WordApp = CreateObject("Word.Application")
 WordApp.Visible = True
 Set WordDoc = WordApp.Documents.Add
     WordDoc.PageSetup.Orientation = 1
 ActiveSheet.Shapes("Picture").Copy
 WordApp.Selection.PasteSpecial Link:=False, DataType:=8, _
    Placement:=1, DisplayAsIcon:=False
 Set WordDoc = Nothing
 Set WordApp = Nothing
 End Sub

 

[Domenic]

Maybe...

 WordApp.Selection.Paste
 With WordDoc
    .InlineShapes(.InlineShapes.Count).ConvertToShape.WrapFormat.Type = wdWrapBehind
 End With

Hope this helps!