It turns out that my macro WAS working. I was referencing the WRONG AXIS!!! Anywho, here's the code that I was using to resize, center, and change the label position.
I should also thank Jon Peltier for something!
Dim s As Slide
Dim shp As Shape
For Each s In ActivePresentation.Slides
For Each shp In s.Shapes
If shp.Type = msoChart Then
.LockAspectRatio = msoFalse
.Height = 400
.Width = 500
.Chart.Axes(xlCategory).TickLabelPosition = xlLow
Application.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
Application.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
Formatting tags added by mark007
Originally Posted by John Wilson