Как в MS Excel создать пузырьковую диаграмму, цвет пузырьков которой соответствует цвету ячейки?

Question

Я хотел бы проиллюстрировать четвертую переменную (ось x, ось y, размер пузырька, цвет пузырька), но не хочу искусственно разбивать ряд на предопределенные группы на основе набора пороговых значений. Вместо этого я хочу, чтобы каждый пузырек отражал определенные цвета ячейки (которая будет окрашена посредством условного форматирования на основе четвертой переменной).

Кто-нибудь знает, как это сделать?

Answer 1

Как это работает:

1. Введите данные и залейте цвета.
2. нажмитеВставлять,Вставить разброс (X, Y)или Пузыристый графики выберите пузырьковую диаграмму.
3. Щелкните правой кнопкой мыши по диаграмме и выберитеВыбрать данныеиз меню.
4. ИзВыберите источник данныхНажмитеДобавлять & выберите относительные ячейки дляСерия данных.
5. Для первого текстового поля выберите ячейку A1и ячейки ниже для других текстовых полей, например A2, A3, A4.
6. Повторите шаг 5 для столбца B& Cи завершите с помощьюХорошо.

7. Скопируйте и вставьте этот код VB как стандартный модуль в таблицу.

   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. Окончательно,выберите область диаграммы и ЗАПУСТИТЕ код.

Вы получаете цвета пузырьков, похожие на цвета заполненных ячеек.

Примечание, Этот метод никогда не получает цвета ячеек условного форматирования.