将趋势线设置为可变引发错误

Question

我正在和他一起以下代码：

Sub AddTrendLinesBoth()
Dim myCht As ChartObject
Dim oTren As Trendline
Dim oWb As Workbook
Dim oWS As Worksheet
Set oWb = ThisWorkbook
Set oWS = oWb.Sheets("Summary")

Set myCht = oWS.ChartObjects("Chart 1")
    On Error GoTo GetOut
With myCht.Chart
    .SeriesCollection(1).Trendlines.Add
    .SeriesCollection(2).Trendlines.Add
End With


Set oTren = myCht.SeriesCollection(1).Trendlines(1)
        With oTren.Format.Line
            .Visible = msoTrue
            .Weight = 3
            .ForeColor.RGB = RGB(112, 48, 160)
            .Transparency = 0
        End With

Set oTren = myCht.SeriesCollection(2).Trendlines(1)
        With oTren.Format.Line
            .Visible = msoTrue
            .Weight = 3
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0
        End With

GetOut:
End Sub

在set oTren =的每个实例上，在建立变量时都会出现代码错误。 我缺少什么来充分建立那条线？ 我将with语句用作set变量的原因是因为使用ActiveChart和ActiveSheet在较早版本的Excel中ActiveChart方法错误。

Answer 1

问题在于myCht是一个ChartObject对象，而不是一个Chart对象。 因此，您需要遍历统计图对象的统计图方法以获取统计图的元素，例如与系列相关的趋势线：

Set oTren = myCht.Chart.SeriesCollection(1).Trendlines(1)