Определение типа фигуры в Excel???

[Nat]

Столкнулся с проблемой определения типа фигуры (коллекция Shapes).
Если конкретнее, необходимо из всех фигур определить какие являютя прямоугольниками? Фигуры появлются копированием из буфера обмена и поэтому неизвестны ни имена, ни ID. Среди фигур есть линии, стрелочки, овалы и прямоугольники.
пробовал таким методом:

if ExApp.ActiveWorkBook.ActiveSheet.Sh apes.item(i).type=1 then

Но в таком случае type = 1 имеют также и овалы.
Может кто-нибудь знает решение проблемы?

[The_Prist]

AutoShapeType должен быть 1

Для большей ясности:

Sub Test()
    Dim oSh As Shape
    For Each oSh In ActiveSheet.Shapes
        Debug.Print oSh.Type; oSh.AutoShapeType; oSh.Name
    Next oSh
End Sub

[Nat]

Спасибо! Работает... !!!