TickLabels.Font (Word)

Returns the font of the specified object.

Dim cftFont As ChartFont
Set cftFont = ActiveDocument.Background.Chart.Axes(1).TickLabels.Font