This example sets the category axis in embedded chart one on worksheet one to use a time scale, with months as the base unit.
With Worksheets(1).ChartObjects(1).Chart
With .Axes(xlCategory)
.CategoryType = xlTimeScale
.BaseUnit = xlMonths
End With
End With