excel 使用SeriesCollection.Extend方法

xuo3flqw  于 2023-08-08  发布在  其他
关注(0)|答案(1)|浏览(174)

我想使用SeriesCollection.Extend方法来扩展图表的范围。工作表(1)具有以下值
| B栏| Column B |
| --| ------------ |
| ||
| 一个| 1 |
| 四个| 4 |
| ||
| ||
前3行/列被绘制为“图表1”。我想使用SeriesCollection.Extend方法扩展图表以包含第4行。
宏:

Sub ExtendTrial()

Charts("Chart 1").SeriesCollection.Extend _
Source:=Worksheets("Sheet1").Range("$A$5:$B$5")

End Sub

字符串
出现“下标超出范围”错误。宏似乎不允许我添加xlColumn参数

jm81lzqq

jm81lzqq1#

我需要在Excel 2019中使用ChartObject来删 debugging 误消息并指定可选的参数值以获得正确的图,而不是让Excel尝试并失败来确定。

Option Explicit

Sub ExtendTrial()

    Worksheets("Sheet1").ChartObjects("Chart 1").Chart.SeriesCollection.Extend _
        Source:=Worksheets("Sheet1").Range("$A$5:$B$5"), Rowcol:=xlColumns, CategoryLabels:=True
End Sub

字符串

相关问题