$Slide->Shapes->AddShape({msoShapeRectangle,Left=>72,Top=>72,Width=>252,Height=>48});