per vba Diagramm verändern
05.11.2003 12:29:27
tina
ich habe ein Problem beim Verändern eines Diagramms. Hier erst mal der Code:
Sub createanddelete()
Dim cht As Chart
On Error Resume Next
ActiveSheet.ChartObjects(1).Delete
On Error GoTo 0
Set cht = Charts.Add
cht.ChartType = xlColumnClustered
cht.SetSourceData Source:=Sheets("kreuz").Range("A1").CurrentRegion
cht.Location Where:=xlLocationAsObject, Name:="kreuz"
Range("A1").Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "CT_Month_At (Detail)"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Monate"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Tage"
End With
End Sub
Nun möchte ich aber eine andere Aufteilung. Im Diagramm-Assistenten wäre es das, wenn man anstatt Zeilen "Spalten" anklickt.
In den Source-Code habe ich jetzt xlColumns eingebaut - gibt aber immer eine Fehlermeldung.
Muß ich das anders machen?
Ich bin absoluter Neuling, was Excel betrifft!!!
Grüße
Tina