En MS Excel, ¿cómo puedo crear un gráfico de burbujas donde el color de las burbujas coincida con el color de una celda?

Question

Me gustaría ilustrar una cuarta variable (eje x, eje y, tamaño de burbuja, color de burbuja), pero no quiero dividir artificialmente la serie en grupos predefinidos en función de un conjunto de umbrales. Más bien, quiero que cada burbuja refleje los colores particulares de una celda (que se coloreará mediante formato condicional basado en la cuarta variable).

Alguien sabe cómo hacer esto?

Answer 1

Cómo funciona:

1. Ingrese datos y colores de relleno.
2. hacer clicInsertar,Insertar dispersión (X, Y)o gráfico de burbujasy seleccione gráfico de burbujas.
3. Haga clic derecho en el gráfico y haga clicSeleccionar datosdesde el menú.
4. Desde elSeleccionar fuente de datosHacer clicAgregar & seleccionar celdas relativas paraSerie de datos.
5. Para el primer cuadro de texto, seleccione la celda A1y las celdas inferiores para otros cuadros de texto como A2, A3, A4.
6. Repita el paso 5 para la columna B& Cy termine conDe acuerdo.

7. Copie y pegue este código VB como módulo estándar con la hoja.

   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,seleccione el área del gráfico y EJECUTE el código.

Obtienes colores de burbuja similares a los colores de celda rellena.

Nota, Este método nunca obtiene los colores de celda con formato condicional.