EIN Diagramm erstellen, benennen, verschieben,...
20.03.2005 12:00:51
Christian
ich bin grad am Rande der Verzweiflung, da ich anscheinend zu doof bin mir EIN Diagramm zu erstellen. Ich will:
- EIN Diagram (Zeitreihenplot) erstellen
- Dieses mit o.g. Namen versehen
- Auf die richtige Position im Sheet verschieben
- Wieder löschen
- Und wieder erstellen (ganze Prozedur quasi von vorn).
Ich hab noch nicht wirklich alle Punkte versucht, da ich am Anfang schon scheitere, aber hier trotzdem mal der Code:
************************************************
Function addGraphik(groesse As Integer)
Dim dia As Object
Set dia = Charts.Add
dia.name = "Zeitreihenplot"
dia.ChartType = xlLine
dia.SetSourceData Source:=Sheets("Zeitreihe").Range("C4:C" & groesse + 4), _
PlotBy:=xlColumns
dia.Location Where:=xlLocationAsObject, name:="Zeitreihe"
'Hab damit nur überprüft
'Dim te As Variant
'te = ActiveSheet.ChartObjects.Count
'Worksheets("Zeitreihe").Cells(1, 5).Value = dia.name <- mag er nicht
With dia
.HasTitle = True
.ChartTitle.Characters.Text = "Zeitreihenplot"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Tag"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Absatz"
End With
ActiveChart.HasDataTable = False
Application.ScreenUpdating = True
End Function
Wenn ich auch in den ChartObjects oder so nach "Zeitreihenplot" suche, findet er auch nix. Mag er nicht.
Bin für jede Hilfe sowas von danbar!
Chris