Axis.BaseUnit (Word)
Retorna ou define a unidade base para o eixo da categoria especificada. Leitura/gravação XlTimeUnit. Os valores de retorno possíveis são xlDays - Dias, xlMonths - Meses, xlYears - Anos.
A definição dessa propriedade não tem nenhum efeito visível se a propriedade CategoryType do eixo especificado estiver definida como xlCategoryScale. O valor definido é mantido, no entanto e entrará em vigor quando a propriedade CategoryType estiver definida como xlTimeScale. Você não pode definir essa propriedade para um eixo dos valores.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart
.Axes(xlCategory).CategoryType = xlTimeScale
.Axes(xlCategory).BaseUnit = xlMonths
End With
End If
End With