Create Bubble Chart Automatically

[Admin]

Hi

Add these line of codes before the End With of the code you posted above.

    Dim chtSeries       As SeriesCollection
    Dim lngSrsLoop      As Long
    
    Set chtSeries = .SeriesCollection
    
    For lngSrsLoop = 1 To chtSeries.Count
        If chtSeries(lngSrsLoop).DataLabels(1).ShowCategoryName Then chtSeries(lngSrsLoop).DataLabels(1).ShowCategoryName = False
        If chtSeries(lngSrsLoop).DataLabels(1).ShowValue Then chtSeries(lngSrsLoop).DataLabels(1).ShowValue = False
        If Not chtSeries(lngSrsLoop).DataLabels(1).ShowSeriesName Then chtSeries(lngSrsLoop).DataLabels(1).ShowSeriesName = True
    Next