1

我想将数据添加到一堆现有图表中。假设每个图表都有不同数量的数据系列，并且原始数据的位置在同一个工作簿中的某个位置。这是我开始的内容：

For iChart = 1 To iCount
    ActiveSheet.ChartObjects("Chart " & iChart).Activate
    intSeries = 1
    Do Until ActiveChart.SeriesCollection(intSeries).Name = ""
        Set rXVal = ActiveChart.SeriesCollection(intSeries).XValues '<- Object Required error
        Set rXVal = Range(rXVal, rXVal.End(xlDown))
        Set rYVal = ActiveChart.SeriesCollection(intSeries).Values
        Set rYVal = Range(rYVal, rYVal.End(xlDown))
        ActiveChart.SeriesCollection(intSeries).XValues = rXVal
        ActiveChart.SeriesCollection(intSeries).Values = rYVal
        intSeries = intSeries + 1
    Loop
Next iChart

我知道这ActiveChart...XValues = rXVal行得通，但我Set rXVal = ActiveChart....XValues在线上遇到“需要对象”错误。我假设由于一个范围进入定义数据系列，我可以再次将该范围取回然后添加到它。

更新
为了澄清一点，我在 8 个地方安装了加速度计，并设置了 FFT 软件来记录 4 个单独频带中的峰值振动响应。每个样本产生 32 个数据点。导出时，软件吐出4张Excel工作簿；每个频段一个。每张表都有加速度计名称和样本编号。

4

2 回答 2

9

我已成功使用此语法：

Dim rXVal() As Variant
rXVal = ActiveChart.SeriesCollection(intSeries).XValues

更新

在这种情况下，您会得到一个数组，因为您给定的语句 ( ActiveChart.SeriesCollection(intSeries).XValues)是一个数组而不是一个范围。如果您深入研究以下的 Series 对象，这就是您在 Locals 窗口中看到的内容ActiveChart.SeriesCollection(intSeries)：

在此处输入图像描述

（在我的虚拟数据中，我有名为 r1、r2、r3、r4 的行。）

我想说的是，XValues没有任何属性可以表明其占用范围。

如果您确实需要 range，我建议您从该formula属性中获取它。我建议的方法是用这个替换导致错误的行：

Set rXVal = Range(Split(ActiveChart.SeriesCollection(intSeries).Formula, ",")(1))

接下来，我看到您试图获取Values. 同样，使用这个：

Set rYVal = Range(Split(ActiveChart.SeriesCollection(intSeries).Formula, ",")(2))

另一件事。

以下几行最终会导致您出错：

intSeries = 1
Do Until ActiveChart.SeriesCollection(intSeries).Name = ""
    ...some code...
    intSeries = intSeries + 1
Loop

请更改它们：

For intSeries = 1 To ActiveChart.SeriesCollection.Count
    ...some code...
Next

还有一件事。

考虑使用Withand End With，因为你重复了很多ActiveChart.SeriesCollection(intSeries)。这样您的代码将更具可读性，因为您只需跳过这一长行！会不会很厉害？？？

于 2015-02-08T06:22:53.583 回答
0

这对我来说很好：

Dim rXVal() As Variant
Dim rXValMin, rXValMax As Double

rXVal = ActiveChart.SeriesCollection(intSeries).XValues
rXValMin = WorksheetFunction.Min(rXVal)
rXValMax = WorksheetFunction.Max(rXVal)
于 2018-12-04T16:40:49.913 回答