如何确定 Excel 图表是否有任何数据系列

编程问答 2022-07-11

问题描述

我正在尝试使用 VBA 使用以下行创建图表：

TICKER  year  month
A       2000  2        <statsmodels.regression.linear_model.OLS objec...
        2001  1        <statsmodels.regression.linear_model.OLS objec...
              2        <statsmodels.regression.linear_model.OLS objec...
B       2000  1        <statsmodels.regression.linear_model.OLS objec...
              2        <statsmodels.regression.linear_model.OLS objec...
        2001  1        <statsmodels.regression.linear_model.OLS objec...
C       2000  1        <statsmodels.regression.linear_model.OLS objec...
              2        <statsmodels.regression.linear_model.OLS objec...

有时图表已经带有（废话）数据点，我必须删除它：

Set StressChart = INFsheet.Shapes.AddChart2(240,xlXYScatterLines)

但是，有时还没有数据，FullSeriesCollection 对象也不存在。这会导致错误。

如何预测是否有数据，或者如何测试是否有数据？

我的本​​地树如下所示：

enter image description here

快照是在以下断点处进行的：

enter image description here

代码运行正常，如上所示，但如果取消注释第二条绿线（标记为“禁用调试”），我会收到以下错误：“参数无效”。

解决方法

请尝试：

If `StressChart.Chart.FullSeriesCollection.count > 0 Then StressChart.Chart.FullSeriesCollection(1).Delete`

已编辑： 在您的代码中使用上述建议：

If `.Chart.FullSeriesCollection.count > 0 Then .Chart.FullSeriesCollection(1).Delete`

是否会出现同样的错误？

excelexcelexcel-chartsvba