Axis.BaseUnit procedure builder

Axis.BaseUnit (Word)

Returns or sets the base unit for the specified category axis.

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

Setting this property has no visible effect if the CategoryType property for the specified axis is set to xlCategoryScale. The set value is retained, however, and takes effect when the CategoryType property is set to xlTimeScale. You cannot set this property for a value axis.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .Axes(xlCategory).CategoryType = xlTimeScale 
 .Axes(xlCategory).BaseUnit = xlMonths 
 End With 
 End If 
End With