Insert Image after Text in Text Field

[Harris]

Hi,

I have the following function to insert an image into a Text Field:

Private Sub InsertPicture(filename As String)
    
    With ActiveDocument.Shapes(activeTextbox).TextFrame.textRange
        .InlineShapes.AddPicture filename:=filename, _
        LinkToFile:=False, SaveWithDocument:=True
    End With
    
End Sub

Now I want to insert the image below the text in the text Field and I guess for that I have to make
use of the 'Range' parameter of the AddPicture function. But I dont know how to do it.

Can someone help me out?

Thanks

[gmaxey]

Private Sub InsertPicture(filename As String)
Dim oRng As Range
    With ActiveDocument.Shapes(1).TextFrame
      Set oRng = .TextRange
      oRng.Collapse wdCollapseEnd
        oRng.InlineShapes.AddPicture filename:=filename, _
        LinkToFile:=False, SaveWithDocument:=True
    End With
    
End Sub