Change Fill color using VBA in PowerPoint

[dibyendu2280]

Thanks Sir @Paul_Hossler,
Working nice. Now I customize my shape size. I have no words to appreciates you. May god bless you. Sir I implement above micro in my project & shape size changes as I wanted but not replacing shape center to center(ie not align center/concentric both shape) & final shape not align to center of the previous shape. Please see the presentation. I try adding .Top & .Left in below code but no luck. Please advice sir

Private Sub pvtChangeAutoShapeType(o As Shape)
    With o
        If .Type <> msoAutoShape Then Exit Sub
        If .AutoShapeType <> tShapeToChange Then Exit Sub
.AutoShapeType = tShapeAfterChange
.Height = oShapeAfterChange.Height
        .Width = oShapeAfterChange.Width
.Top = oShapeAfterChange.Width.Top
        .Left = oShapeAfterChange.Left
End With
End Sub