DougTrajano

Pessoal.

 

Preciso de uma ajuda para criar uma macro que escolha a cor da legenda do gráfico. Tenho vários gráficos que vou usar aqui como exemplo, nome de funcionários. Em alguns gráficos pode ter Fernando, Fábio, etc, outras pode ter só Fernando. Nem todos os funcionários estão presentes em todos os gráficos.

Preciso que em todos os gráficos o "Fernando" seja da cor vermelha e a "Fábio" em todos os gráficos que ela aparecer seja da cor azul.

 

Segue abaixo o código que eu já tenho, mas não está dando certo. ;(

 

Sub macro_grafico()
If ActiveSheet.ChartObjects("Gráfico 20").Activate Then
    ActiveChart.SeriesCollection("Fernando").Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Fabio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 235, 158)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Priscilla").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(204, 51, 0)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Bruna").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(49, 133, 156)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Bárbara").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(102, 0, 102)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Julio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(195, 214, 155)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Henrique").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(204, 193, 218)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Cassiano").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(55, 96, 146)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Leandro").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(64, 49, 82)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Jorge").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(33, 89, 104)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Guilherme").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(127, 127, 127)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Lucas").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(119, 147, 60)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Pedro").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(1, 13, 255)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Sergio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(152, 72, 7)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Gustavo").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(155, 187, 89)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Daniele").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
        .Solid
    End With
 End If
End Sub

Agradeço muito se puderem ajudar.

Pessoal.

 

Estou procurando a placa frontal do gabinete Cougar Archon.

 

Placa frontal com 1x USB 2.0, 1x USB 3.0, Entrada Microfone e Fone de ouvido.

 

Quem tiver, podemos negociar.

 

Segue fotos do gabinete para confirmar, mas acredito que seja a mesma para outros da marca Cougar.

 

Tks.