No MS Excel, como posso criar um gráfico de bolhas onde a cor das bolhas corresponde à cor de uma célula?

Question

Gostaria de ilustrar uma quarta variável (eixo x, eixo y, tamanho da bolha, cor da bolha), mas não quero dividir artificialmente a série em grupos predefinidos com base em um conjunto de limites. Em vez disso, quero que cada bolha reflita as cores específicas de uma célula (que será colorida por meio de formatação condicional com base na quarta variável).

Alguém sabe como fazer isto?

Answer 1

Como funciona:

1. Insira dados e preencha cores.
2. cliqueInserir,Inserir dispersão (X, Y)ou Gráfico de bolhase selecione gráfico de bolhas.
3. Clique com o botão direito no gráfico e cliqueSelecione Dadosdo cardápio.
4. DeSelecione a fonte de dadosCliqueAdicionar & selecione células relativas paraSérie de dados.
5. Para a primeira caixa de texto, selecione a célula A1e as células abaixo para outras caixas de texto, como A2, A3, A4.
6. Repita a etapa 5 para Coluna B& Ce Finalize comOK.

7. Copie e cole este código VB como Módulo Padrão com a Planilha.

   Option Explicit
   
   Sub ColorChartSeries()
   Dim iRow As Long, iCol As Long
   Dim theBubbles As Range
   Dim theChart As Chart
   Dim theSeries As Series
   Dim thePoint As Point
   
   Set theChart = ActiveChart
   
   If (theChart.ChartType <> xlBubble And theChart.ChartType <> xlBubble3DEffect) Then
       MsgBox "This works only for bubble charts!"
       End
   End If
   
   For Each theSeries In theChart.SeriesCollection
       Set theBubbles = Range(theSeries.BubbleSizes)
       iRow = theBubbles.Row - 1
       iCol = theBubbles.Column
       For Each thePoint In theSeries.Points
           iRow = iRow + 1
           thePoint.Format.Fill.ForeColor.RGB = Cells(iRow, iCol).Interior.Color
       Next thePoint
   Next theSeries
   
   End Sub
   

8. Finalmente,selecione a área do gráfico e EXECUTE o código.

Você obtém cores de bolha semelhantes às cores de células preenchidas.

Observação, Este método nunca obtém as cores das células formatadas condicionalmente.