I am trying to select a shape wich is on the left side of page.
So far I managed to select the shape on the lower left corner of the page using "SelectShapesAtPoint":
With ActivePage.SelectShapesAtPoint(0, 0, SelectUnfilled:=True) If .Shapes.Count = 0 Then Beep: Exit Sub Set lab = .Shapes(.Shapes.Count) End With
but I would like not to be forced to put the shape at that specific point
My shape is in fact a group of shapes including power clips etc.
You might look at ShapeRange.Sort, and use that to find the shape within a range that has the smallest X position.
I'll try that.
Thank you Eskimo!