Beschriftung der Y-achse
04.11.2015 15:39:51
Bjoern
ich möchte gerne in einem Userform ein Diagramm darstellen lassen. in Excel kann man die horizontale Achsbeschriftung (Rubrik) ändern, indem man einen Bereich der Datentabelle auswählt/markiert und diesen in das Diagramm übernimmt.
Wie kann man das in VBA realisieren? Ich habe versucht die Beschriftung über .ticklabel einzufügen, hab es aber leider nicht geschafft. Kann mir jemand weiterhelfen?
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.ChartType = xlBarClustered
cht.HasLegend = False
cht.HasAxis(xlCategory) = True
cht.Axes(xlCategory).TickLabels.Font.Size = 10
cht.HasAxis(xlValue, xlPrimary) = False
cht.SeriesCollection(1).Interior.Color = RGB(96, 123, 139)
cht.ChartGroups(1).GapWidth = 180
cht.SeriesCollection(1).HasDataLabels = True
cht.SeriesCollection(1).DataLabels.Position = xlLabelPositionInsideBase
cht.SeriesCollection(1).DataLabels.Font.ColorIndex = 2
With cht.SeriesCollection(1).DataLabels.Font
.Size = 10
.Name = "Arial"
.FontStyle = "regular"
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
End With
Vielen Dank!