SeriesCollection.Name到Range? 高强

我试图从我的Excel表中获得一个正确的传说,我正在试图创build使用的图例

SeriesCollection(1).Name 

在VBA中的方法。 我正在做的是这样的

 ActiveChart.SeriesCollection(1).Name = Range(" some range ").Text 

但是,这给我的types不匹配的错误。 任何想法是什么问题? 或者我可以怎样做这个不同的方式呢?

你只是指一个单元格的范围? 无论如何,你可以写:

 ActiveChart.SeriesCollection(1).Name = Range("RangeName").Cells(1, 1).Value 

如果引用一个数组(多个单元格范围),则必须遍历数组并将单个单元格值连接成单个stringvariables,然后使用该stringvariables来设置ActiveChart.SeriesCollection(1).Name

 Dim myString as String 'Declare a string variable to concatenate the range values Dim rng as Range 'This is your range variable Dim cell as Range 'this will be a cell range within rng Set rng = Range(" some range ") For each cell in rng myString = myString & cell.Value Next ActiveChart.SeriesCollection(1).Name = myString