Thanks Jon. It works fine;;;except I have trouble with

PPApp.ActiveWindow.Selection.S=ADhapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

It doesn't want to align the chart. I'm sure you know what I should do.
Thank you again.