✔ Programação GLOBAL®: VBA Excel - Ordenando os dados de um gráfico

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Sim, quanto mais criamos Dashboards, mais estes evoluem. Ao evoluir nossos Dashboards requerem certos tratamentos e cuidados para melhorarem a performance e a apresentação.

O que segue, é uma das muitas dúvidas que caem por aqui, em nosso Blog.

Como posso ordenar a série de dados que demonstro no meu gráfico cada vez que os respectivos dados são atualizados?

Sub RankTable()



Dim chtTemp As Chart

Dim vntData() As Variant

Dim objSeries As Series

Dim lngIndex As Long

Dim rngSort As Range

Dim lngRow As Long



Set chtTemp = ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Chart

ReDim vntData(1 To chtTemp.SeriesCollection.Count, 1 To 2)



lngIndex = 1

For Each objSeries In chtTemp.SeriesCollection

vntData(lngIndex, 1) = objSeries.Name

vntData(lngIndex, 2) = Application.WorksheetFunction.Index(objSeries.Values, 1, objSeries.Points.Count)

lngIndex = lngIndex + 1

Next

Set rngSort = Range("J1").Resize(UBound(vntData) - LBound(vntData) + 1, 2)

With rngSort

.Value = vntData

.Sort .Cells(1, 2), xlDescending, , , , , , xlNo

vntData = .Value

End With



For lngRow = rngSort.Rows.Count To 1 Step -1

chtTemp.SeriesCollection(vntData(lngRow, 1)).PlotOrder = lngRow

Next

End Sub