Formatação condicional em gráfico de pizza

Question

Como criar "formatação condicional" em gráficos de pizza?

Preciso enfatizar em um gráfico de pizza, uma determinada fatia de acordo com um resultado em que varia.

Por exemplo tenho um gráfico que mostram os resultados do ano, mês a mês e gostaria que qdo eu escolher um determinado mês em uma caixa de combinação a fatia que representa o mês escolhido ficasse em destaque.

Answer 1

Olá!

Fazer este tipo de destaque num gráfico de pizza acho que é mais complicado do que em outros gráficos, uma vez que o gráfico de pizza só mostra uma série.

Uma solução seria trabalhar com eventos no vba para realizar este destaque.

Veja uma proposta que você pode adaptar conforme sua necessidade:

Usei o código abaixo no evento change da planilha do gráfico:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rPoint As Integer

Dim i As Integer

Dim pts As Points

Set pts = ActiveSheet.ChartObjects("Gráfico 1").Chart. _

SeriesCollection(1).Points

rPoint = WorksheetFunction.Match(Range("E2"), Range("B37:B48"), 0)

For i = 1 To pts.Count

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

If i = rPoint Then

ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 30

Else

ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 0

End If

Next i

Range("E2").Activate

End Sub

Faça o download do arquivo no link abaixo para ver o funcionamento (Não funciona no excel online):

https://1drv.ms/x/s!ApBsJzQ8m7jYl247spSiRG4-1qPW