Trendlinie einfügen
29.06.2016 08:55:49
Sabrina
Ich habe eine Frage. Ich habe folgendes Makro, um Graphiken zu erstellen. Ich schaffe es nur leider nicht, noch eine Trendlinie mit einzubauen. Ansonsten funktioniert das Makro so einwandfrei genau wie ich es möchte.
Könnt ihr mir eventuell sagen, wie ich die Trendlinie einbaue?
Vielen DAnk :)
Sub PR_01()
Dim Ws As Worksheet
Dim oChrt As ChartObject
Dim Chrt As Chart
Set Ws = ActiveSheet
Set oChrt = Ws.ChartObjects.Add(1, 1, 600, 450)
With oChrt
.Name = "PR"
With .Chart
.ChartType = xlLineStacked
.ChartStyle = 232
.SetSourceData Source:=Range("Allocation!$A$1:$HB$3")
With .SeriesCollection(1)
.HasDataLabels = True
.Name = "PR-0.1"
End With
.HasLegend = True
End With
End With
End Sub
Anzeige