I don't belive you can but as a fallback you can give them your own name so they are easier to relate to:
activedocument.Shapes(1).Name = "Fred"
activedocument.Shapes("Fred").Visible = false
activedocument.Shapes("Fred").Visible = true
or
application.Selection.ShapeRange.name = "Doris"
activedocument.Shapes("Doris").Visible = false
activedocument.Shapes("Doris").Visible = true
Chris