Colour Excel stacked chart series accurately from cell fill

(Using Excel 365 for Enterprise) I regularly create stacked column charts where the series are drawn from a fixed list of categories, and each category must have a specific (externally defined) colour.

For each chart the data need to be ordered by prevalence, so sometimes a given category might appear as Series 1, other times Series 12, and so on. Pasting new data into the existing sheet/chart means the colours and categories are mismatched. Previously I have manually set each series fill (custom RGB values) for each new chart, but would like to be more efficient.

I have a VBA macro that can set the chart series colour from the fill colour of the cell holding the data (my data cells do use the correct colours as per illustration below):

'Source https://www.get-digital-help.com/format-fill-color-on-a-column-chart-based-on-cell-color/#bar'Name macroSub ColorChartBarsbyCellColor()'Dimension variables and declare data typesDim txt As String, i As Integer'Save the number of chart series to variable cc = ActiveChart.SeriesCollection.Count'Iterate through chart seriesFor i = 1 To c'Save seriescollection formula to variable txttxt = ActiveChart.SeriesCollection(i).Formula'Split string save d to txt using a comma ","arr = Split(txt, ",")'The With ... End With statement allows you to write shorter code by referring to an object only once instead of using it with each property.With ActiveChart.Legend.LegendEntries(i)'The SET statement allows you to save an object reference to a variable, the image above demonstrates a macro that assigns a range reference to a range object.'Save a range object based on variable arr to variable vAdressSet vAddress = ActiveSheet.Range(arr(2))'Copy cell color from cell and use it to color bar chart.LegendKey.Interior.Color = ThisWorkbook.Colors(vAddress.Cells(1).Interior.ColorIndex)End With'Continue with next seriesNext iEnd Sub

This appears to work in that colours are assigned, but they are not quite correct. Some are close, others not, as in the illustration below.

Others have commented on the VBA's source page, and the author did provide further code to apparently address this issue, but then no responses to those who asked (over a year ago) exactly how to make it work with the original macro.

'Source https://www.get-digital-help.com/format-fill-color-on-a-column-chart-based-on-cell-color/#comment-430898Sub ColorChartColumnsbyCellColor()With Sheets("Color chart columns").ChartObjects(1).Chart.SeriesCollection(1)    Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))    For i = 1 To vAddress.Cells.Count        CS = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)        R = CS Mod 256        G = CS \ 256 Mod 256        B = CS \ 65536 Mod 256        .Points(i).Format.Fill.ForeColor.RGB = RGB(R, G, B)    Next iEnd WithEnd Sub

I feel I am close to a solution here but falling at the last hurdle. Is it possible to add the second block of code into the first block, to make a working macro that will accurately set chart series colour from the data cell fill? Thank you.

Source links for ease: main code and additional block.