Microsoft Office Forums - View Single Post - [Solved] Select where to insert new image

shortbred · 10-13-2023, 12:22 AM

Quote:

Originally Posted by vivka

Hi! Catch it:

Code:

Sub Replace_Pic()
    
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    With selection.Find
       .text = "^g"
       .MatchWildcards = False
       .Execute
       If .found Then
          selection.InlineShapes.AddPicture filename:= _
            "d:\Desktop\2.jpg", LinkToFile:=False, _
            SaveWithDocument:=True
       End If
    End With
End Sub

Thank you so much!