Sub Macro2() Dim OS As Shape, x#, y#, w#, h# Set OS = ActiveSelection.Shapes(1) For i = 1 To OS.Curve.Segments.Count If OS.Curve.Segments(i).Selected = True Then OS.Curve.Segments(i).GetBoundingBox x, y, w, h MsgBox ("Segment Index = " & i & vbCr & "Width = " & w & vbCr & "Height = " & h & vbCr & "Length = " & OS.Curve.Segments(i).Length) End If Next iEnd Sub
Thanks Mek, not quite there though. Segment width should be 3"