TickLabels.Font (PowerPoint)

Returns the font of the specified object.

Dim cftFont As ChartFont
Set cftFont = ActiveWindow.RangeFromPoint.Chart.Axes(1).TickLabels.Font