Gráfico que tome los colores de los datos

Administrador

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3663

Tema: Gráfico que tome los colores de los datos
Enviado: 04/Marzo/2021 a las 16:36

Buenas tardes a todos.

Estoy intentando hacer un gráfico (a ser posible lineal) donde cambie el color de la línea (una única línea) en función del color de los datos en la hoja Excel.

Es decir, si tengo un gráfico que me enseñe los valores desde C1 hasta C100

Normalmente saldría una línea de un solo color mostrando la gráfica correspondiente.

Ahora bien, si yo tengo los datos de C1 a C50 en rojo, de C51 a c 100 en verde, ¿es posible sacar un gráfico lineal donde la primera parte de la línea sea roja y la segunda verde?

En este ejemplo he puesto dos colores, pero en la vida real podrían ser N colores, incluso repetirse en distintos "segmentos" del gráfico.

Dado que es un excel mío, puedo añadir filas o poner controles sin problema, pero no se me ocurre como hacerlo para conseguir este efecto.

Cualquier idea, por descabellada que parezca, será muy bienvenida.

Luis

El Búho es un pajarraco

Mihura

Administrador

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529

Enviado: 04/Marzo/2021 a las 16:50

No hagas una línea, haz 100 y cada 'trozo' lleva el color en función de la celda origen.

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es

lbauluz

Administrador

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3663

Enviado: 04/Marzo/2021 a las 17:04

Gracias Muuuu

Esa es una de las cosas que intento, pero ¿como decirle que tome ese color?

El Búho es un pajarraco

Mihura

Administrador

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 12529

Enviado: 04/Marzo/2021 a las 17:14

Esto lo utilizo desde Access con automatización, tendrás que traducirlo a Excel, pero no creo que te de problemas ... apunte, una línea es un rectángulo muuuuu finito

Public Sub Rectangulo(Optional ByVal Rango As String = "", Optional ByVal DescuentoAlto = 0, Optional ByVal DescuentoIzquierda = 0, Optional ByVal DescuentoDerecha = 0, Optional ByVal ColorLinea = "", Optional ByVal ColorRelleno = "", Optional ByVal GrosorLinea = "")
    Dim AnchoRect As Long
    
    If Rango <> "" Then Me.XRango = Rango
    Xls.ActiveSheet.Range(Me.XRango).Select
    'protegemos el posible valor erroneo de ancho
    AnchoRect = Xls.Selection.Width - (DescuentoIzquierda + DescuentoDerecha): If AnchoRect < 0 Then AnchoRect = 2
    Xls.ActiveSheet.Shapes.AddShape(msoShapeRectangle, Xls.Selection.Left + DescuentoIzquierda, Xls.Selection.Top + DescuentoAlto, AnchoRect, Xls.Selection.Height - (DescuentoAlto * 2)).Select
    If ColorLinea <> "" Then Xls.Selection.ShapeRange.Line.ForeColor.RGB = ColorLinea
    If ColorRelleno <> "" Then Xls.Selection.ShapeRange.Fill.ForeColor.RGB = ColorRelleno
    If GrosorLinea <> "" Then Xls.Selection.ShapeRange.Line.Weight = GrosorLinea
End Sub

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es

AnSanVal

Administrador

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5771

Enviado: 04/Marzo/2021 a las 21:23

La línea en el gráfico realmente son 99 líneas que unen los 100 puntos.

¿El color en los datos lo tiene la fuente o la celda?

Saludos desde Tenerife.

Mi sitio_web con ejemplos Excel.

AnSanVal

Administrador

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5771

Enviado: 04/Marzo/2021 a las 22:24

Hice un ejemplo (con ayuda de Santa grabadora):

Fechas en A2:A20 (A1 = Fecha) para el eje horizontal

Números en B2:B20 (B1 = datos) El número de filas es indiferente.

Sub colorDeLinea()

Dim punto&, p1&, p2&, miColor As Double

p1 = 2

p2 = Cells(Rows.Count, 1).End(xlUp).Row - 1

ActiveSheet.ChartObjects("3 Gráfico").Activate

For punto = p1 To p2

miColor = Cells(punto, 2).Font.Color

With ActiveChart.SeriesCollection(1).Points(punto).Format.Line

.ForeColor.RGB = miColor

End With

Next punto

[C1].Select

End Sub

Nota: coloreé a mano los números (fuente). Si el color lo tienes por formato condicional, el procedimiento para obtener el color será diferente (emplea la fórmula del propio FC).

Saludos desde Tenerife.

Mi sitio_web con ejemplos Excel.

lbauluz

Administrador

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3663

Enviado: 08/Marzo/2021 a las 11:33

Pues no lo consigo, la función de Antonio me casca en "With ActiveChart.SeriesCollection(1)." asi que sigo buscando (en mis ratos libres) una solución.

Y lo de Mihura, lo estoy traduciendo, pero de momento nada tampoco.

En cuanto tenga un par de horas, a ver si lo soluciono

Gracias

Luis

El Búho es un pajarraco

Emilio

Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18836

Enviado: 08/Marzo/2021 a las 13:01

Buenas.

Luis, échale un ojo a https://andypope.info/charts/conditionalline2.htm, en esa página hay un puñado de magníficos ejemplos de gráficos Excel.

Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/

Mihura