Microsoft Office Tutorials and References
In Depth Information
7.2 Diagramm ändern
' Legende
CH.HasLegend = True
With CH.Legend
.Interior.Color = vbYellow
.Border.Color = vbBlue
.Border.Weight = xlThick
End With
' Achse Kategorien
With CH.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "Datum"
.TickLabels.NumberFormatLocal = "TT.MM."
End With
' Achse Werte
With CH.Axes(xlValue)
.HasTitle = True
.AxisTitle.Text = "Grad"
.MinimumScale = 5
.MaximumScale = 35
End With
' Datenreihe
With CH.SeriesCollection(1)
.Border.Color = vbRed
.MarkerStyle = xlMarkerStyleCircle
.MarkerForegroundColor = vbRed
.MarkerBackgroundColor = vbRed
End With
'Datenpunkt
With CH.SeriesCollection(1).Points(3)
.Border.Color = vbBlue
.ApplyDataLabels xlShowValue
.MarkerStyle = xlMarkerStyleSquare
.MarkerForegroundColor = vbBlue
.MarkerBackgroundColor = vbBlue
End With
End Sub
Die Abbildungen 7.4 und 7.5 zeigen einige Bildausschnitte dazu:
Search JabSto ::




Custom Search