Select where to insert new image

vivka · #2 10-12-2023, 10:04 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select Image and Move to Front	Pestomania	Word VBA	1	12-24-2020 09:07 AM
Word 2007-cannot select or copy image	calvin-c	Word	2	01-05-2017 02:26 PM
ComboBox : select image to insert in Sheet1	smallxyz	Excel Programming	0	02-07-2016 05:41 PM
Select an entire line (to insert one)	Officer_Bierschnitt	Excel Programming	3	11-06-2015 03:05 AM
Background image vs. insert image	lilaria	PowerPoint	0	04-18-2011 08:45 AM