Trendline in Dia per Makro ein- und ausblenden
Matte
vielleicht könnt ihr mir weiterhelfen!
Habe ein Blatt mit 10 Diagrammen. Umständlicherweise muss ich die Trendlinien alle von Hand einfügen.
Ich habe ein Makro gefunden das mir per Button_Cklick dann die Ausgangskurven ausblendet, so dass ich nur noch die Trendlinie sehe. Ich kann bei nochmaligem Klick die Kurven wieder einblenden.
Jetzt möchte ich noch ein Button der mir zusätzlich automatisch die Trendlinie ein und ausblendet.
Das folgende Makro ist das des Buttons um die Ausgangskurve ein und auszublenden, ich bin nur zu doof das auf die Trendlinie anzuwenden.
Also lautet die Frage:
Wie kann ich den Code umändern, so dass dies für die Ein-/Ausblendung der Trendlinien funktioniert?
Sub ausgangskurve_einausblenden()
Dim oBlatt As Worksheet, oDia As ChartObject
Set oBlatt = Worksheets("Diagramme")
Application.ScreenUpdating = False
For i = 1 To 10 ' Schleife ¸ber alle 10 Diagramme
With oBlatt
Set oDia = .ChartObjects(i)
oDia.Select
'ActiveChart.SeriesCollection(1).Select: Selection.Border.LineStyle = xlContinuous
If ActiveChart.SeriesCollection(1).Border.LineStyle = xlNone Then ' Falls erste _
Diagrammlinie nicht sichtbar, dann
For j = 1 To ActiveChart.SeriesCollection.Count ' Schleife ¸ber Linien
ActiveChart.SeriesCollection(j).Border.LineStyle = xlContinuous ' Linie _
sichtbar machn
Next
Else ' sonst alle Linien unsichtbar schalten
For j = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(j).Border.LineStyle = xlNone
Next
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Irgendwie muss ich das da oben mit irgendwas wie dem hier vereinen:
.Item(i).Trendlines.Add Type:=xlMovingAvg, Period:=2 _
, Forward:=0, Backward:=0, DisplayEquation:=False, DisplayRSquared:= _
False
Next
Für jede Idee ein Dankeschön!
Gruß Matte