Return Name And Type Of Shape Object?

Since I cannot record the code when I create an shape (eg a rectangle), I am trying to write an small sub that would return the attributes of the object.

I select a red Rectangle I put on a tab.

I started as follow:

HTML Code: 

Sub GetMeSelectedShapeAttributes()
Dim Attributes(1 To 10, 1 To 2) As String
With Selection
Attributes(1, 1) = "name"
Attributes(1, 2) = .Name
Attributes(2, 1) = "Back color shapes"
Attributes(2, 2) = .Fill.BackColor.RGB
End With
End Sub

My goal is to learn about the different attributes of shapes so I can manipulate them with code,