Microsoft Office Tutorials and References
In Depth Information
7.8.5 Alle Farben
End With
End Sub
Zur Erläuterung:
Zunächst wird die Farbe der Linie verändert. Dies gelingt über die
Untereigenschaft ThemeColor der Eigenschaft SeriesColor des ersten
Elements der Collection SparklineGroups . Die möglichen Farben
werden im nachfolgenden Beispiel gezeigt.
SeriesColor
Die Datenpunkte bekommen eine sichtbare Markierung in einer
bestimmten Farbe. Dazu werden Eigenschaften der Markierungen in
der Collection Points.Markers eingestellt. Zunächst die Eigenschaft
Visible , anschließend die Untereigenschaft ThemeColor der Eigen-
schaft Color .
Points
Das Ergebnis sehen Sie, etwas vergrößert, in Abbildung 7.29.
Abbildung 7.29
Sparkline, formatiert
7.8.5
Alle Farben
Eine Übersicht aller Farben für Balken (und Linien) bei Sparklines bietet
das nachfolgende Programm:
Alle Farben
Sub SparkLineFarben()
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle8").Activate
Fori=1To11
Cells(i + 13, 1).SparklineGroups.Add _
xlSparkColumn, "A1:A10"
Cells(i + 13, 1).SparklineGroups.Item(1). _
SeriesColor.ThemeColor = i
Next i
Cells(14, 1).Interior.Color = vbBlack
End Sub
Search JabSto ::




Custom Search