I need to import a bunch of pictures to a Word document.
Such pictures are given a name starting with 'Picture 1' and adding up as more are imported. I need, however, to be able to identify each picture for possible deletion later, so I therefore want to give them a name immediately when importing them.
So far this code works:
Code:
Dim ImPath1 As String
ImPath1 = "C:\Users\nivo\Pictures\Icons\Water_icon_square.jpg"
ActiveDocument.Shapes.AddPicture FileName:=ImPath1, LinkToFile:=False, SaveWithDocument:=True, _
Left:=-15, Top:=275, Anchor:=Selection.Range, Width:=40, Height:=40
but I need to add something like:
which unfortunately does not work.
Anyone has a hint?
best regards, NSV