VBA to add shapes

Hi all again,

So I'm currently trying to create yet another form, luckily my department has made some interesting macros / VBA's before and since I still haven't received a proper VBA training all I can do is either google search, this forum or "reverse engineer" the others.

I've stumbled across this thing:

 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 52, 537, 130, 23).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 5
    Selection.ShapeRange.Line.Weight = 3#
    Selection.ShapeRange.TextFrame.Characters.Font.Name = "Arial"
    Selection.ShapeRange.TextFrame.Characters.Font.Size = 10
    Selection.ShapeRange.TextFrame.Characters.Font.Bold = True
    Selection.ShapeRange.TextFrame.Characters.Font.ColorIndex = 1
    Selection.ShapeRange.TextFrame.HorizontalAlignment = xlHAlignCenter
    Selection.ShapeRange.TextFrame.VerticalAlignment = xlVAlignCenter

Which creates a certain shape, but let's say that I already have some shapes, special ones, can I somehow find out their properties so I could instead create them?

Thanks