Trendlijn grafiek toevoegen via een macro

[semmie]

Ik heb een macro die een grafiek maakt. In deze grafiek wil ik ook nog via de macro een trendlijn toevoegen. Echter ik krijg dit niet voor elkaar. Bij afspelen van de macro gaat hij fout, de macro verwijst dan naar iets wat niet bestaat lijkt het.
In de bijlage zie je de data en de macro die de grafiek zonder trendlijn maakt.

Alvast bedankt voor de hulp, Marianne

 

[Efsix]

In je bijlage vond ik geen macro.
Ben wel aan het experimenteren geweest en een macro opgenomen.
Echter die werkt enkel op een grafiek in het werkblad zelf.
m.a.w. Niet als je de grafiek opslaat in een apart tabbblad.

Sub Macro1()
'
' Macro1 Macro
' trendlijn toeoegen Machine effiecency
'

'
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

End Sub

 

[Superzeeuw]

Marianne,

Ik heb de volgende macro opgenomen.
Ik ben gegaan naar het tabblad Grafiek en vervolgens voeg ik een lineaire trendlijn toe.

De code ziet er als volgt uit:

Sub TrendlijnToevoegen()
    ActiveSheet.ChartObjects("Grafiek 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Trendlines.Add Type:=xlLinear, Forward:=0, _
        Backward:=0, DisplayEquation:=0, DisplayRSquared:=0, Name:= _
        "Lineair (Machine efficiency)"
End Sub

LET OP!
Deze macro is opgenomen in Excel 2007.

 

[semmie]

Dank jullie!
Echter in beide oplossingen struikelt m'n macro op de regel
ActiveSheet.ChartObjects("Grafiek test").Activate
PS ik heb "Grafiek 1" omgewerkt tot "Grafiek test" zodat ik bij opnieuw runnen van de macro niet iedere keer een ander grafieknummer krijg, dus dat is niet het probleem.
En ik heb Excel 2007.
Waarom stopt ie al op deze regel?

 

[Efsix]

Volgens mij werkt deze macro wel

Sub Macro1()

Sheets("Grafiek test").Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveChart.SeriesCollection(1).Trendlines(1).Select
Selection.DisplayEquation = True
Selection.DisplayRSquared = True
End Sub

groet, Romé

 

[semmie]

Dank je voor je hulp. Ik heb m'n macro lopend.

Marianne