Hallo;
Leute… ich möchte gezielt linien in ein diagramm mittels vba einfügen. Und zwar so, dass ich gezielt die Linie von einem Datenpunkt bis zu einem anderen Datenpunkt führen kann.
Wer kann mir da helfen… und wer kann mir da Literatur im Netz und „Analog“ empfehlen?
Gruß und Dank,
Sascha
Hallo Sascha!
Hier ist eine Sub, die Dir ggf helfen kann bei Deinem Problem. Es ist nicht die eleganteste Lösung aber vielleicht reicht es Dir ja. Einfach unter Excel ausprobieren.
Grüße Carsten
Sub DoIt()
Dim neueSerie As Series
Dim mySheet As String
mySheet = ActiveSheet.Name
MsgBox ("Erzeuge Werte auf Sheet ") & mySheet
For i = 1 To 100
Sheets(mySheet).Cells(i, 1).Value = i ^ 0.5
Next i
MsgBox („Erstelle Chart der Werte von A1 bis A101.“)
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets(mySheet).Range(„A1:A100“)
MsgBox („Interpoliere die Werte von A1 bis A100 linear.“)
For i = 1 To 100
Sheets(mySheet).Cells(i, 2).Value = (((100 - i) * Sheets(mySheet).Range(„A1“).Value + (i - 1) * Sheets(mySheet).Range(„A100“).Value) / 99)
Next i
MsgBox („Schreibe die Interpolierten Werte in den Graph.“)
dummy = Array(myArray)
Set neueSerie = ActiveChart.SeriesCollection.NewSeries
neueSerie.Values = Sheets(mySheet).Range(„B1:B100“)
neueSerie.Name = „Neue Gerade“
MsgBox („Fertig!“)
End Sub