|
Hallo steffen,
ich habe gerade für Jan (GrahamHull-Klasse) ein Makro geschrieben, das auf variable Größen zurückgreift. Vielleicht kannst du es für deine Zwecke umbauen.
ActiveSheet.Shapes.AddChart(xlXYScatter, 350, 10, 500, 350).Select
With ActiveChart
.HasTitle = True
.ChartTitle.text = "Konvexe Hülle einer Punktmenge"
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.XValues = Range(Cells(2, 1), Cells(lz1, 1))
.Values = Range(Cells(2, 2), Cells(lz1, 2))
.Interior.Color = RGB(0, 255, 0)
.Name = "Enveloppe"
End With
Range(Cells(2, 1), Cells(lz1, 2)).Font.Color = vbBlue
If lz1 < lz Then
.SeriesCollection.NewSeries
With .SeriesCollection(2)
.XValues = Range(Cells(lz1 + 1, 1), Cells(lz, 1))
.Values = Range(Cells(lz1, 2), Cells(lz, 2))
.Interior.Color = RGB(255, 0, 0)
.Name = "Sonstige Punkte"
.MarkerStyle = 2
.MarkerSize = 5
End With
Range(Cells(lz1 + 1, 1), Cells(lz, 2)).Font.Color = vbRed
End If
End With
Viel Erfolg!
Gruß
Holger
|