In diesem Beispiel wird die Farbe der Teilstrichbeschriftungen für die Größenachse in Chart1 festgelegt.
Charts("Chart1").Axes(xlValue).TickLabels.Font.Color = _ RGB(0, 255, 0)