How find maximum top+height property of a collection of shapes

[Chet]

Does anyone know how to find the highest top and height property from
a collection of shapes? Basically I am trying to find the bottom of
the lowest of a group of shapes in order to see how far downward on
the worksheet in order so that I can draw a vertical line on the same
worksheet but no lower than the lowest shape object on the worksheet.
Thanks much,

Chet

 

[JE McGimpsey]

One way, if I understand you correctly :

Public Sub LowestShape()
Dim nLowest As Long
Dim nTemp As Long
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
nTemp = sh.Top + sh.Height
If nTemp > nLowest Then nLowest = nTemp
Next sh
MsgBox "Height of line: " & nLowest
End Sub

 

[Chet]

Thanks much!... That worked like a charm.!....................