Charts Farben
14.11.2012 12:53:06
Alex
Charts("Nachlauf Achse 1").SetSourceData Source:=Sheets("KDD").Range("B3:B5")
Charts("Nachlauf Achse 1").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Text = "Nachlauf Achse 1"
End With
Charts("Nachlauf Achse 2").SetSourceData Source:=Sheets("KDD").Range("c3:c5")
Charts("Nachlauf Achse 2").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Text = "Nachlauf Achse 2"
End With
Charts("Nachlauf Achse 3").SetSourceData Source:=Sheets("KDD").Range("d3:d5")
Charts("Nachlauf Achse 3").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Text = "Nachlauf Achse 3"
End With