VBA Chart Axis Formatting

For category labels use

        With .Axes(xlCategory, xlPrimary)
            .TickLabels.Font.Name = "Times Roman"

for vertical scale use

        With .Axes(xlValue, xlPrimary)
            .MaximumScale = 3000