I'm trying to use an OLE link to Word to paste 3 bitmaps and print them on a single page. Code:

oleApp = createobject("word.application")
with oleApp
.visible = .T.
.Documents.Add

* paste, and position first bitmap
.Selection.Paste
.ActiveDocument.Shapes("Picture 2").Select
.Selection.ShapeRange.RelativeHorizontalPosition = 1
.Selection.ShapeRange.RelativeVerticalPosition = 1
.Selection.ShapeRange.Left = 100
.Selection.ShapeRange.Top = 115
...

Problem:
Word assignes this pasted image a tag like "Picture 2". I need to reference this newly pasted image to position it properly. The tag is incremented with each picture, but doesn't start at 1.

Is there a way to set this tag or at least find out what the tag is so I can reference the picture?

Thanks.