Excel VBA设置图表SeriesCollection.Name后系列名称为空求助

问题根源 #

1. 赋值类型错误：Series.Name属性需要字符串值，但你直接传入了Range对象，而非单元格的文本内容。
2. 未绑定工作表的单元格引用：Cells/Range如果不指定父工作表，可能指向错误的工作表（比如当前激活的不是数据所在表），导致引用空值。
3. X/Values赋值触发自动重置：重新设置系列的XValues和Values时，Excel会自动清除手动设置的系列名称，需要调整赋值顺序。

修正代码 #

' 绑定数据所在工作表，避免激活依赖
Dim dataWs As Worksheet
Set dataWs = ThisWorkbook.Worksheets("DataSheet") ' 替换为你的数据工作表名称

With ActiveSheet.ChartObjects(1).Chart
    ' 先设置系列名称，再更新X/Y值，防止被重置
    .SeriesCollection(1).Name = dataWs.Cells(10, 2).Value
    .SeriesCollection(1).XValues = dataWs.Range(dataWs.Cells(11, 1), dataWs.Cells(2000, 1))
    .SeriesCollection(1).Values = dataWs.Range(dataWs.Cells(11, 2), dataWs.Cells(2000, 2))
End With

额外检查项 #

• 确认dataWs.Cells(10,2)对应的单元格（即B10）存在有效文本，空单元格会导致名称空白。
• 如果图表基于Excel表格（ListObject）创建，检查表格是否自动覆盖系列名称设置。
• 验证图表图例是否未被隐藏，确保系列名称有显示的空间。

内容的提问来源于stack exchange，提问作者Sho