Cambiar color de barras en gráfico
Tengo un simulador de distribuir caudal de agua en distintas Toberas o salida en una maquina para la industria gráfica. El código es el siguiente :
Modulo 1
Sub Toberas ()
tipo = [G21]
Select Case tipo
Case Cyan
Range("B5:I5").Copy Range ("B2:I2")
Case Magenta
Range("B8:I8").Copy Range("B2.I2")
Case Amarillo
Range("B11:I11").Copy Range ("B2:I2")
Case Negro
Range ("B14:I14"). Copy Range ("B2:I2")
Que función cumple este código es la siguiente: En la (ColG:Fila21), hay una Lista desplegable con los 4 Colores.
1)Yo desde ahi elijo el color que quiero aumentar o disminuir el caudal de agua.
2) Coloco el valor en la tabla y en el color y tobera que seleccione .
3) En la columna "P", Fila 1 a 4 selecciono el mismo color que en el paso 3.
4) Hago click en el Bóton " Cambiar Gráfico" y ahí se produce el cambio.
Lo que tengo es un gráfico que es siempre del mismo color sus columnas, entonces necesito un código para que cuando desde la lista desplegable seleccione un color las barras en el gráfico tomen el mismo color.
Espero se entienda y acompaño una imagen del problema.
1 respuesta
H o l a:
Te anexo la macro actualizada.
Sub Toberas()
'Act.Por.Dante Amor
tipo = UCase([G21])
Select Case tipo
Case "CYAN"
Range("B5:I5").Copy Range("B2:I2")
Case "MAGENTA"
Range("B8:I8").Copy Range("B2.I2")
Case "AMARILLO"
Range("B11:I11").Copy Range("B2:I2")
Case "NEGRO"
Range("B14:I14").Copy Range("B2:I2")
Case Else
Exit Sub
End Select
'
Set b = Range("P1:P4").Find(tipo, lookat:=xlWhole)
If Not b Is Nothing Then
wcolor = b.Interior.ColorIndex
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Interior.ColorIndex = wcolor
[G21].Select
Else
MsgBox "El color seleccionado no existe en la columna P"
End If
End SubLa macro toma el color de la celda que tienes en las celdas P1:P4, procura poner un color estándar en esas 4 celdas.
Cambia en esta línea de la macro el nombre de la gráfica:
ActiveSheet. ChartObjects("1 Gráfico"). Activate
