Question

SeriesCollection中的值可以设置为

ActiveChart.SeriesCollection(1).Values = "='Sheet1'!$F$3:$F$403"

我想知道字符串以便修改它，但它只能作为变体获取并且不能转换为字符串

Dim values As Variant
Dim valuesStr As String
values = ActiveChart.SeriesCollection(m).Values
valueStr = Cstr(ActiveChart.SeriesCollection(m).Values) ' fails!

我做错了什么？

Answer 1

试试这个：

valueStr = ActiveChart.SeriesCollection(m).Formula

这将返回一个字符串，如：

=SERIES("series_name",,Sheet1!$A$1:$A$4,1)

然后，您应该能够使用一些字符串函数来解析值范围的地址。

否则，按照约翰的建议，做：

Dim values as Variant
Dim v as Variant
values = ActiveChart.SeriesCollection(m).Values
For each v in values
    'Do something to the values here...'
Next

获取excel图中的值字符串

1 个答案: