How to change or set Doughnut chart legends via VBA

[QuestionBaker]

I have to delete the ranges from where I am plotting my doughnut chart, I am able to preserve the data using the following code

For Each srs In doughnut.Chart.SeriesCollection
        srs.Values = srs.Values
Next

but not the legend, is there a way I can overwrite the legend or unlink the complete chart from source data?

 

[Zot]

I hope this will help

ExcelMadeEasy: Vba add legend to chart in Excel

vba add legend to chart in Excel

www.excelmadeeasy.com

 

[QuestionBaker]

I hope this will help

ExcelMadeEasy: Vba add legend to chart in Excel

vba add legend to chart in Excel

www.excelmadeeasy.com

I have the legends in my chart, but when I delete the underlying data legend text also gets deleted.
I want a way to delete the data, and not have the legend text deleted.
I know what text should go for the legends, so I can also get away by hard coding it.

 

[Zot]

Try something like this but has to set HasDataLabels = True first
ActiveChart.SeriesCollection(1).Name = Your Text Here

 

[QuestionBaker]

Try something like this but has to set HasDataLabels = True first
ActiveChart.SeriesCollection(1).Name = Your Text Here

Throws with object variable or with block variable not set error.
I have one more option, I need the chart in a ppt
I can check if deleting the data after pasting the chart in ppt preserves the chart.
I will update if this works or not once I try it out

 

[QuestionBaker]

No, it doesn't work it changes legend in the ppt as well.

 

[QuestionBaker]

After experimenting with recorded macros, I found the following code to work for me

ActiveChart.Chart.FullSeriesCollection(1).XValues = "={""Concept"",""Delivery""}"

 

[Zot]

Good that you have found solution. I'm not much into chart but many commands for chart have no Intellisense aid. Even I found many commands suggested do not work. Probably due to older version, I'm not sure.