Chart bearbeiten
12.12.2003 17:37:18
Dominik
Ich habe wieder einmal ein blödes Problem mit VBA! (So langsam nehme ich Excel das perönlich!) Am besten schicke ich Euch den Code und hier ist er:
Ich habe die stelle mal mit dem Wörtchen FEHLER markiert! Der Fehler lautet im Übrigen: "Die Name Eigenschaft des Series-Objektes kann nicht festgelegt werden."
Die Serie2 bzw. Reihe2 existiert in meinem Diagramm. Zeichne ich ein Makro mittels diesem Aufzeichnungsprogramm auf, so liefert es mir genau den selben Code!
Public
Sub Ubersicht(Name As String, l As Variant)
Dim b As Variant, c As Variant, ActiveChart As Object
'erst herausfinden wo Daten stecken
Set ActiveChart = Application.Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Daten").Range( _
"K" & l - 11 & ":O" & l - 11 & ",K" & l & ":O" & l & ",K" & l + 2 & ":O" & l + 2), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Diagramm " & Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Name
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit [t]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "XAchse"
.SeriesCollection(1).Name = "=Daten!R" & l - 16 & "C4"
End With
'Reihe 1 formatieren
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 1
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = 1
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlDiamond
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
'Reihe 2 formatieren
' Hier meldet er einen FEHLER
ActiveChart.SeriesCollection(2).Name = "=""Regression"""
With Selection.Border
.ColorIndex = 2
.Weight = xlThin
.LineStyle = xlDashDot
End With
With Selection
.MarkerBackgroundColorIndex = 2
.MarkerForegroundColorIndex = 2
.MarkerStyle = xlDot
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub
Freue mich über jeden Tipp!
Schönes Wochenende und einen schönen Advent!
Gruß Dominik