Bubble chart - help with macro set up for auto adding series

Hi,

I have dynamic bubble chart which is sourcing data from fixed range using 4 collumns (X;Y;size and name) and I want to have as a data label Name of the series. I am looking for a way how to add multiple series into the chart using VBA, bcs I d like to add 100+ series in one time and I dont want to do that manualy.

I recorded macro for first two series but everytime I tryed to edit it by myself I failed. I will be very thankfull if someone help me with this.


ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Graf data'!$B$4"
ActiveChart.SeriesCollection(1).XValues = "='Graf data'!$C$4"
ActiveChart.SeriesCollection(1).Values = "='Graf data'!$D$4"
ActiveChart.SeriesCollection(1).BubbleSizes = "='Graf data'!$E$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Graf data'!$B$5"
ActiveChart.SeriesCollection(2).XValues = "='Graf data'!$C$5"
ActiveChart.SeriesCollection(2).Values = "='Graf data'!$D$5"
ActiveChart.SeriesCollection(2).BubbleSizes = "='Graf data'!$E$5"



Attached you can see just the data range with made up figures - bcs of the sensitive data.

Thanks a lot

All the best from Prague (CZ)

Jakub

Hi Jakub

Why add each point as a different series?

You can add all the points in just 1 series, in the case of your file,

X Values: ='Graf data'!$C$4:$C$32
Y Values: ='Graf data'!$D$4:$D$32
Bubble size: ='Graf data'!$E$4:$E$32

Then just add the labels with the values in column B.