ich brauche mal eure Hilfe. Ich habe mit VBA ein Diagramm erstellt. Das klappt auch alles soweit ganz gut. Ich weiß wie ich die Schriftgröße für den X-Achsen Titel anpassen kann, aber wie kann ich das für die Beschriftung der einzelnen Balken machen? Also das was auf der X-Achse an den Balken steht?
Sub diagrammerstellen()
Dim lngZeile As Long
Dim wksTab As Worksheet
Set wksTab = Worksheets("2018")
'Verwendeter Diagrammtyp
With ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Chart
.SetSourceData Source:=Range("'2018'!$B$8")
If .SeriesCollection.Count = 1 Then .SeriesCollection(1).Delete
For lngZeile = 1 To 40
If Cells(lngZeile, 4) = "Ausbilder" Then
With .SeriesCollection.NewSeries
'Name des erzeugten Balkens
.Name = "='2018'!$B$" & lngZeile
'Daten für den erzeugten Balken
.Values = wksTab.Cells(lngZeile, 17)
End With
End If
Next lngZeile
.SeriesCollection(1).XValues = wksTab.Range("Q6")
.HasLegend = True
.SetElement (msoElementLegendRight)
.SetElement (msoElementChartTitleAboveChart)
'Titel des Diagrammes
.ChartTitle.Caption = "Ausbilder Gehälter"
.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 28
.ChartTitle.Format.TextFrame2.TextRange.Font.Bold = msoTrue
With .Legend.Delete
End With
'Beschriftung der Y-Achse
With .Axes(xlValue)
.HasTitle = True
.Axes.Format.TextFrame2.TextRange.Font.Size = 20
.Axes(xlValue).Format.TextFrame2.TextRange.Font.Bold = msoTrue
.AxisTitle.Caption = "Gehalt in "
.AxisTitle.Format.TextFrame2.TextRange.Font.Size = 20
.AxisTitle.Format.TextFrame2.TextRange.Font.Bold = msoTrue
End With
'Beschriftung der X-Achse; Der Wert wird aus der Zelle Q6 gezogen
With .Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = wksTab.Range("Q6")
.AxisTitle.Format.TextFrame2.TextRange.Font.Size = 20
.AxisTitle.Format.TextFrame2.TextRange.Font.Bold = msoTrue
End With
.PlotBy = xlColumns
End With
End Sub