Trendlijn toevoegen en verwijderen met een keuzevinkje

[VerwoerdM]

Goedenmiddag,

Ik probeer een macro te maken waarmee een trendlijn aan een grafiek kan worden toegevoegd en weer worden verwijderd door het 'vink hokje' aan en af te vinken. Hiervoor gebruik ik Excel 2007. Het toevoegen van de trendlijn gaat prima, maar het verwijderen helaas niet.

Dit is de code die ik heb gemaakt:

Private Sub Checkbox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
Selection.DisplayEquation = True
Selection.DisplayRSquared = True
Else: Run ("Macro2") Hier gaat het mis
End If
End Sub

De code van Macro2 is:
Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select Hier krijg ik de melding ongeldige parameter
Selection.Delete
End Sub

Weet iemand wat er mis gaat, ik heb het internet af lopen speuren maar het lijkt of deze parameter wel werkt bij anderen.

Alvast bedankt voor de hulp!