Ändern der Farbe der horizontalen Achse einer Sparkline

Sie können die Farbe der horizontalen Achse einer Sparkline mithilfe der Color-Eigenschaft des SparkColor-Objekts ändern. Im folgenden Codebeispiel werden drei Sparklinegruppen durchlaufen und die Farbe der horizontalen Achse gleich der Füllfarbe in Zelle A8 festgelegt. In diesem Beispiel sind drei Sparklinegruppen erforderlich, die in den Zellen A2, B2 und C2 beginnen. Zelle A8 muss mit der Farbe gefüllt sein, die Sie für die Farbe der horizontalen Achse verwenden möchten. In diesem Beispiel wird die Color-Eigenschaft des Interior-Objekts verwendet, um die Farbe der Zelle A8 abzurufen.

Sub AxisColor()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    'Loop through the sparkline groups on the sheet
    For Each oSparkGroup In Range("A2:C2").SparklineGroups
        'Show the axis
        oSparkGroup.Axes.Horizontal.Axis.Visible = True
        'Set the color of the axis to the color of cell A8
        oSparkGroup.Axes.Horizontal.Axis.Color.Color = Range("A8").Interior.Color
    Next oSparkGroup
End Sub

Siehe auch

• SparklineGroup-Objekt
• Programmieren mit Sparklines in Excel

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.