用vba 如何设置excel饼图中每一块的颜色 电子表格 VBA，如何用代码给单元格设置颜色？

作为对象插入时：sheet1.ChartObjects(1).chart.Legend.LegendEntries(1).LegendKey.interior.colorindex=20

作为新工作表插入时：Charts(1).Legend.LegendEntries(1).LegendKey.interior.colorindex=20

ChartObjects(1)，Charts(1)为要改的图表，数字1表示第一个
LegendEntries(1)为要改的图例，数字1表示第一个

请问用vba生成饼图时如何设置系列值对应的系列名称~

Sheet1.ChartObjects(1).Chart.SeriesCollection(1).XValues = "=Sheet1!R2C1:R9C1"


"=Sheet1!R2C1:R9C1"为名称引用的单元格，R为行C为列。

Cells(1, 1).Font.ColorIndex = 3 '字的颜色号为3 红色
Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色
Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色
Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色