Hallo Community,
ich habe heute wieder ein Problemchen ... leider bekomme ich beim erstellen meines Chart einen Laufzeitfehler und finde nicht heraus wo dieser her kommt. Ich nutze excel2010 und könnte mir vorstellen, dass aus Codeschnipseln von 2003 o.Ä. Probleme entstanden sind.
Hier der Code: (ich habe so viel wie möglich auskommentiert)
Dim Bereich As Range 'Bereich wird als Range deklariert
Range("O6:Q16").Select 'Bereich wird selektiert
Set Bereich = Selection 'Bereich wird auf selection gesetzt
With ActiveSheet.ChartObjects.Add(0, 0, 360, 211).Chart 'P(XPOS,YPOS,XGROEßE,YGROEßE)
.ChartType = xlXYScatter 'Liniendiagramm gewählt
.SetSourceData Source:=Bereich, PlotBy:=xlColumns 'Datenbereich für das Diagramm
.HasTitle = False 'Diagrammtitel anzeigen
.Axes(xlCategory, xlPrimary).HasTitle = True 'X-Achstitel anzeigen
.Axes(xlValue, xlPrimary).HasTitle = True 'Y-Achstitel anzeigen
With .Axes(xlCategory) 'X-Achse
.MinimumScale = 1 'Kleinster Wert X-Achse
.MaximumScale = 10 'Größter Wert X-Achse
'.Crosses = xlCustom
'.CrossesAt = 0.1
'.ScaleType = xlLinear
'.DisplayUnit = xlNone
.AxisTitle.Caption = "Positionen" 'Titel X-Achse
End With
With .Axes(xlValue) 'Y-AChse
.MinimumScale = 1 'Kleinster Wert Y-Achse
.MaximumScale = 10 'Größter Wert Y-Achse
'.Crosses = xlCustom
'.CrossesAt = 0.1
'.ScaleType = xlLinear
'.DisplayUnit = xlNone
.AxisTitle.Caption = "Werte" 'Titel Y-Achse
End With
With .SeriesCollection(1)
With .Border
'.Weight = xlThin
.LineStyle = xlAutomatic
End With
.MarkerStyle = xlDiamond
.MarkerSize = 2
End With
With .SeriesCollection(2)
With .Border
'.Weight = xlThin
.LineStyle = xlAutomatic
End With
.MarkerStyle = xlSquare
.MarkerSize = 2
End With
With .PlotArea
.Width = 267
With .Border
'.Weight = xlThin
.LineStyle = xlNone
End With
.Interior.ColorIndex = xlNone
End With
With .Legend
With .Border
'.Weight = xlHairline
'.LineStyle = xlNone
End With
.Shadow = False
'.Interior.ColorIndex = xlNone
.Left = 214
.Top = 188
.Height = 24
End With
End With
End Sub
Laufzeitfehler ist 2147467259(80004005) ich denke aber nicht dass ihr daran den Fehler festmachen könnt :(
ich bin auch für Ideen offen, danke!
|