1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Tabelle13.Shapes.AddChart(xlColumnClustered, Top:=100, Left:=3000, Width:=600, Height:=300).Select
With ActiveChart
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 250
.Axes(xlValue).MajorUnit = 50
.Axes(xlValue).MinorUnit = 10
.ChartGroups(1).GapWidth = 0
.ChartGroups(1).Overlap = 100
.HasTitle = True
.ChartTitle.Characters.Text = "CTB10: 0.08s/mm, Defocus: 0mm"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.SeriesCollection(1).XValues = Tabelle13.Range("AB4:AP4")
.SeriesCollection(1).Values = Tabelle13.Range("AB5:AP5")
.SeriesCollection(1).Name = "50%"
.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=Range("AB17:AP17"), MinusValues:=Range("AB29:AP29")
.SeriesCollection(2).Values = Tabelle13.Range("AB6:AP6")
.SeriesCollection(2).Name = "85%"
.SeriesCollection(2).ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=Range("AB18:AP18"), MinusValues:=Range("AB30:AP30")
.SeriesCollection(3).Values = Tabelle13.Range("AB7:AP7")
.SeriesCollection(3).Name = "95%"
.SeriesCollection(3).ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=Range("AB19:AP19"), MinusValues:=Range("AB31:AP31")
End With |
Partager