Macro para pintar grafico de dispersion
Publicado por Maximiliano (1 intervención) el 04/09/2018 10:19:56
Hola:
Necesito pintar un grafico de dispersion dependiendo del pais que sea. Encontre la macro que pego aqui abajo pero solo sirve si quisiera pintar 2 paises y yo necesito modificarla para que me pinte mas colores (un color por cada pais) que en total son 8 paises.
Necesito pintar un grafico de dispersion dependiendo del pais que sea. Encontre la macro que pego aqui abajo pero solo sirve si quisiera pintar 2 paises y yo necesito modificarla para que me pinte mas colores (un color por cada pais) que en total son 8 paises.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub colores()
On Error GoTo noselecciona
ActiveChart.SeriesCollection(1).Select
Selection.Format.Fill.ForeColor.RGB = RGB(50, 50, 50)
para = 0 fila = 2 Do While para = 0If Cells(fila, 3) = 1 Then ActiveChart.SeriesCollection(1).Points(fila - 1).Format.Fill.ForeColor.RGB = RGB(250, 50, 0)
If Cells(fila, 1) = "" Then para = 1
fila = fila + 1
Loop
noselecciona:If Err Then MsgBox ("Ha de seleccionar el gráfico")
End Sub
Valora esta pregunta
0