Compartir a través de

Cambiar el color del eje horizontal de un minigráfico

Puede cambiar el color del eje horizontal de un minigráfico mediante la propiedad Color del objeto SparkColor . En el ejemplo de código siguiente se recorren en iteración tres grupos de minigráficos y se establece el color del eje horizontal igual al color de relleno de la celda A8. En este ejemplo se requieren tres grupos de minigráficos a partir de las celdas A2, B2 y C2. La celda A8 debe rellenarse con el color que desea usar para el color del eje horizontal. En este ejemplo se usa la propiedad Color del objeto Interior para obtener el color de la celda A8.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.