Раскрасить пузырьки в диаграмме

[danil1234567]

Здравствуйте,

Нам в ближайшее время потребуется нарисовать много пузырьковых диаграмм. Средствами Екселя не получается сделать нормальные подписи к ним, но эту проблему решает следующий макрос:

http://support.microsoft.com/kb/213750

Я VBA не знаю, но судя по макросу, туда можно дополнительно дописать еще одну строчку, чтобы он еще и раскрашивал пузырьки в стандартные цвета (по умолчанию они все одного цвета). Не подскажете, как она должна выглядеть?

Спасибо!

[EducatedFool]

Если нужен макрос:

) прикрепите файл с данными, на основании которых будут строиться диаграммы
2) объясните, где надо размещать диаграммы, как определять границы диапазонов данных для диаграмм
3) нарисуйте вручную пару диаграмм - в том виде, в котором их должен создавать макрос.

Тогда мы подумаем, как это автоматизировать.

[doober]

Помог бубен шамана
Вы это хотели?

  ......
 ActiveChart.SeriesCollection(1).Points(Counter).Interior.ColorIndex =Int( Rnd*40)+3
   Next Counter
...