Hallo Till,
hab mir alles nochmal genau angesehen.
Ja, ich drücke nur F8. Hab mittlerweile auch kein "Select" mehr drin. Das Programm durchläuft diese Diagrammerstellung
innerhalb einer Do-Schleife. Für alle Benutzer, die z.B. in Zelle A1 bis A3 stehen, wird je 1 Diagramm erstellt bis zur ersten
leeren Zelle A4. Damit wird die Schleife verlassen und man hat 3 Diagramme. Klappt alles super, nur die Schriftformatierungen
der Legende und des Titels bleiben nur beim ersten der Diagramme erhalten. Teilweise hat auch die Reihenfolge der
Formatierungen Auswirkungen. Wenn ich z.B. die Positionsänderung ans Ende stelle, passt die Formatierung bei allen 3 nicht mehr.
Sehr merkwürdig, erst recht für einen Amateur.
With ActiveChart
.ChartType = xlPie
.SeriesCollection(1).XValues = Sheets("Benutzer").Range("B1:D1")
.SeriesCollection(1).Values = Sheets("Benutzer").Range("B" & Benutzernummer + 2 & ":D" & Benutzernummer + 2)
.Location Where:=xlLocationAsObject, Name:="Benutzer"
End With
With ActiveChart.Parent
.Top = YPosition
.Left = 10
.Height = 200
.Width = 200
End With
YPosition = YPosition + 215
With ActiveChart.SeriesCollection(1).Points(3).Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
With ActiveChart.SeriesCollection(1).Points(1).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With ActiveChart.SeriesCollection(1).Points(2).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Statistik von " & Benutzer
.HasLegend = True
End With
With ActiveChart.Legend
.Position = xlBottom
.Width = 150
.Height = 30
.Left = 22
.Font.Size = 8
End With
With ActiveChart.ChartTitle
.Font.Size = 10
End With
|