Bubble Chart with 5 dimensions

There's a mechanism for creating bespoke graphs available on my (out of date) download page which might be close to what you need. It's not a chart as such as it isn't dynamically linked to the data but may be useful.

If it is, we could make an amended version.

You need to build multiple series based on conditional formula.

Thanks for the feedback.

I was able to create the charts in code, but after runing the code a few times, my spreadsheet becomes corrupted and will not save. I have not done any coding and relied on the macro record to get the most of it written. Can someone take a quick look and give me a few tips? I really appreciate it. Thanks.

Sub Chart()
'
' Chart Macro
' Inserts bubble chart at cell AG1.
'
    Sheets("Status").Select
    Application.Goto Reference:="R1C33"
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBubble3DEffect
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='Status'!$S$2"
    ActiveChart.SeriesCollection(1).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(1).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(1).BubbleSizes = "='Status'!$S$3:$S$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='Status'!$T$2"
    ActiveChart.SeriesCollection(2).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(2).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(2).BubbleSizes = "='Status'!$T$3:$T$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "='Status'!$U$2"
    ActiveChart.SeriesCollection(3).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(3).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(3).BubbleSizes = "='Status'!$U$3:$U$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Name = "='Status'!$V$2"
    ActiveChart.SeriesCollection(4).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(4).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(4).BubbleSizes = "='Status'!$V$3:$V$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(5).Name = "='Status'!$W$2"
    ActiveChart.SeriesCollection(5).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(5).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(5).BubbleSizes = "='Status'!$W$3:$W$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(6).Name = "='Status'!$X$2"
    ActiveChart.SeriesCollection(6).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(6).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(6).BubbleSizes = "='Status'!$X$3:$X$50"
    ActiveChart.SetElement (msoElementLegendBottom)
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 26
    ActiveChart.ClearToMatchStyle
    ActiveChart.ApplyChartTemplate ("C:\Users\JudyR\AppData\Roaming\Microsoft\Templates\Charts\FinancialImpact.crtx")
    ActiveChart.ChartTitle.Caption = "Status"
    
    With ActiveChart.Axes(xlValue)
        .HasTitle = True
        With .AxisTitle
            .Caption = "Number of Days Outstanding"
        End With
    End With
    
    With ActiveChart.Axes(xlCategory)
        .HasTitle = True
        With .AxisTitle
            .Caption = "Percent of FS Sales Impacted"
        End With
    End With
    
    ActiveChart.ChartArea.Width = 700
    ActiveChart.ChartArea.Height = 450

Please try 5dchart Add-In for Microsoft Office Excel
www.5dchart.com