[已解决]如何用vba对应图表的名称

含月化烛

Excel中图表的名称是如何命名的，用vba写代码时，应该怎么表示图表的名称？

我将图表命名成“1”，用vba时，如果直接写ActiveSheet.ChartObjects("1").Activate，就没问题；
但是，因为有多个图表，我想用循环，
Sub Macro1()
Dim i%
For i = 1 To 6
    ActiveSheet.ChartObjects(" i ").Activate
    ActiveChart.SetElement (msoElementPrimaryValueGridLinesNone)
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveChart.SetElement (msoElementDataLabelTop)
Next
End Sub
只运行到黄色的那一句，就不对了，出现了图片中的错误。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-10-28 15:35

i的引号去掉，你这里是变量I,不是字符串“i”

跳转到最佳答案楼层

hwc2ycy

i的引号去掉，你这里是变量I,不是字符串“i”

含月化烛

hwc2ycy 发表于 2014-10-28 15:35
i的引号去掉，你这里是变量I,不是字符串“i”

有没有什么方法不用循环，而是一次性将全部图表选中？
还有个问题，我明明将一个图表 命名成 “1”，写语句的时候，也是写的ChartObjects(“1”)，可是他选中的却是另一个图表，这是怎么回事呢？

hwc2ycy

试试这个ChartObjects.Select

hwc2ycy

图表时好像名字不会像别的要求唯一性，我没有测试，以前好像有遇见过。
如果确认是图表，就在集合中枚举。