Hvordan returnerer man mål på "shapes" via en makro

Nu har selv fundet af, at følgende kode returnerer ønskede værdier for "rectangle 1"):
    ActiveSheet.Shapes("Rectangle 1").Select
    Range("A1").Value = Selection.ShapeRange.Height
    Range("A2").Value = Selection.ShapeRange.Width

Hvad gør man når der er mange rektangler, og Excel selv skal finde ud af hvor mange der er tegnet, og hvilken nummerering de er blevet tildelt af excel? Tilsyneladende er nummeringen lettere vilkårlig (?). Ihverfald har jeg observeret at ved oprettelse af flere rektangler, springes "numre" over, så de ikke er fortløbende.
De returnerede mål er iøvrigt forskellig fra dem man kan aflæses manuelt, med en faktor ca. 28,3. Hvorfor?

Public Sub ShapeStørrelse()
    Dim I As Long
    I = 2
    [A1] = "Navn"
    [B1] = "Højde"
    [C1] = "Bredde"

    For Each sh In ActiveSheet.Shapes
        Range("A" & I).Value = sh.Name
        sh.Select
        Range("B" & I).Value = Selection.ShapeRange.Height
        Range("C" & I).Value = Selection.ShapeRange.Width
        I = I + 1
    Next
End Sub

Hej kabbak!
Det virker bare!
Jeg er både glad og imponeret!
Hvordan giver jeg dig dine fortjente point?

et svar ;-)), så kan du komme af med point

Tak igen!

selv tak

Hvis shapen indeholder en tekst, hvordan får man så den med "ud" i samme omgang?

Hvis det er en tekstbox, så

If sh.Type = 17 Then Range("d" & I).Value = Selection.Text

Tak, hvad hvis det er et rectangel eller en retvinklet trekant.
Det må være samme terminologi, men andre "sh.Type nr"?

Kan man iøvrigt sortere i shapes, så der kun returneres rectangler og evt. trekanter i listen?
Hvis ikke, er det ikke et problem, idet jeg bare kan sortere i den liste du har lavet.

rektangler og ovaler har nr. 9
streger nr. 1