eingebettetes Diagramm bis zu einer bestimmten Zei

Hallo

Ich hoffe, die Frage richtig verstanden zu haben, dann:
--------------------------------------------------------

Sub Koordinaten_bestimmen()
Dim y_Koordinate    As Single
Dim EndZelle        As Integer
 
'Diagramm nach der 20-ten Zeile plazieren
EndZelle = 20
 
y_Koordinate = 0
 
For n = 1 To EndZelle
    y_Koordinate = y_Koordinate + Cells(n, 1).Height
Next n
 
'Diagramm plazieren  (Diagrammname: 'Diagramm 1')
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Diagramm 1").Left = 0
    ActiveSheet.Shapes("Diagramm 1").Top = y_Koordinate
 
End Sub
--------------------------------------------------------
mfg, GraFri