Check if shape is in specific location in slide

[TrippyTom]

oh by the way, here's the DoLine process it calls in the above macro:

Sub DoLine(I As Long, Nm As String, Tp As Single, Lft As Single, Wdth As Single, Ht As Single)
Dim myColor As Long
myColor = RGB(255, 0, 0) 'red <-- Change this value to whatever you want if you don't like red
    With ActivePresentation.Slides(I).Shapes.AddShape(Type:=msoShapeRectangle, Top:=Tp, Left:=Lft, width:=Wdth, height:=Ht)
    .Name = Nm & CStr(I)
    .Line.ForeColor.RGB = myColor
    End With
End Sub