ChartSpace
31.05.2006 12:09:48
Holger
Möchte in meinem Chartspace folgendes ändern:
1 Hintergrundfarbe
2 Beschriftung der X/Y-Achsen einfügen
3 Farbe des Liniendiagrammes ändern
Geht das ?
Wen ja wie !!
Folgender Code steht in der UserForm1:
Option Explicit
Private Sub ChartSpace1_DataSetChange()
End Sub
Private Sub UserForm_Activate()
Dim c
Dim c1
Spreadsheet1.ActiveSheet.Cells.Clear
Worksheets("Tabelle2").Range("A1:B2980").Copy
Spreadsheet1.ActiveSheet.Cells(1, 1).Paste
Application.CutCopyMode = False
ChartSpace1.Clear
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type = c.chChartTypeLine
ChartSpace1.DataSource = Spreadsheet1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "A1:A2980"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B1:B2980"
ChartSpace1.Charts(0).HasLegend = False
ChartSpace1.Charts(0).HasTitle = True
End Sub