Tabellenblatt mit mehreren Diagrammen erstellen
wernerp
Säulendiagramme erstellen und auf dem Tabellenblatt ablegen will.
Es ist das erstenmal, dass ich dabei mit dem ChartObjekt arbeite.
Die Erstellung eines Diagramms bekomme ich hin. Das Problem ist,
dass die nachfolgenden Diagramme immer in die Diagrammfläche
des ersten Diagramms generiert werden, die neuen Diagrammflächen
bleiben leer.
Mein Code zur Erstellung eines Diagramms ist folgender:
' --- Diagrammblatt erstellen -
Charts.Add
' --- Quelldaten für Diagramm angeben -
ActiveChart.SetSourceData _
Source:=Sheets("Summen").Range(rngDatenbereich), _
PlotBy:=xlColumns
' --- Diagramm im Tabellenbereich ablegen -
ActiveChart.Location _
Where:=xlLocationAsObject, _
Name:="Summen"
' --- Titel eintragen, Legende löschen, X-Achsenbeschriftung auf 30° -
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = strTitle
.HasLegend = False
With .Axes(xlCategory).TickLabels
.ReadingOrder = xlContext
.Orientation = 30
End With
End With
Was fehlt?
Gruß Werner.