Trendlijnen Aan/uit

[Abco_B]

De laatste makro die ik voorlopig (hopelijk) nodig heb, is een makro om trendlijnen toe te voegen of te verwijderen in een grafiek.

Regel 2 geeft hier een foutmelding.

Iemand een idee ?

Abco


Sub Trendlijn()

If ActiveChart.SeriesCollection(1).HasTrendlines = True Then
ActiveChart.SeriesCollection(1).Trendlines(1).Select
Selection.Delete

Else
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
Backward:=0, DisplayEquation:=False, DisplayRSquared:=False).Select

End If

End Sub

 

[Roncancio]

Zo:

Sub Trendlijn()

If ActiveChart.SeriesCollection(1).Trendlines.Count > 0 Then
ActiveChart.SeriesCollection(1).Trendlines(1).Select
Selection.Delete
Else
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
Backward:=0, DisplayEquation:=False, DisplayRSquared:=False).Select
End If

End Sub

 

[Abco_B]

Roncancio,

Heel mooi !

Bedankt,

Abco