Axis.MajorUnitScale procedure builder

Axis.MajorUnitScale (Word)

Returns or sets the major unit scale value for the category axis when the CategoryType property is set to xlTimeScale.

xlDays - Days, xlMonths - Months, xlYears - Years.

MajorUnitScale can be one of the following xlTimeUnit constants:

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.Axes(xlCategory) 
 .CategoryType = xlTimeScale 
 .MajorUnit = 5 
 .MajorUnitScale = xlDays 
 .MinorUnit = 1 
 .MinorUnitScale = xlDays 
 End With 
 End If 
End With