With
ActiveSheet
l = .Cells(i,
"N:N"
).Left
t = .Cells(i,
"N:N"
).Top
Set
cht = .ChartObjects.Add(l, t, 240, 120)
End
With
With
cht.Chart
<strong> .SetSourceData Source:=rngWerte1, PlotBy:=xlColumns
.SetSourceData Source:=rngWerte2, PlotBy:=xlColumns</strong>
.ChartType = xlLineMarkers
.HasLegend =
False
.HasTitle =
True
.ChartTitle.Text = Cells(i,
"A:A"
).Value
.ChartTitle.Font.Size = 10
.Axes(xlValue).TickLabels.Font.Size = 8
.Axes(xlCategory).TickLabels.Font.Size = 8
End
With