In diesem Beispiel wird die Rubrikenachse in Chart1 mit einer Beschriftung versehen.
With Charts("Chart1").Axes(xlCategory) .HasTitle = True .AxisTitle.Text = "July Sales" End With