Dim ishapeNew As InlineShape Set ishapeNew = ActiveDocument.InlineShapes.New(Range:=Selection.Range) ishapeNew.Select