|
Servus erstmal,
kurz zur Erklärung meiner Situation: Ich muss im Praxissemester Messwerte mithilfe eines VBA-Tools in Grafiken umwandeln, leider habe ich 0,0 Erfahrung damit und das somit ein nicht unerhebliches Problem für mich darstellt.
Ich kann die Messwerte bereits in Excel importieren in folgender Form:
A B C D E
1 Drehwinkel [°] Drehmoment [Nm] Vorspannkraft [kN] Zeit [s]
2 0 0,015033 -0,005646 -0,019805 0
3 -0,25 0,016908 -0,005624 -0,020781 0,000833
4 -0,75 0,017611 -0,005985 -0,022207 0,001667
5 -1 0,017724 -0,010226 -0,026887 0,0025
6 -1,5 0,01787 -0,046981 -0,030301 0,003333
7 -2 0,018441 -0,091323 -0,029255 0,004167
natürlich mit noch etlichen folgenden Messreihen.
Ziel ist es das Drehmoment über den Drehwinkel und einmal über die Zeit bzw. die Vorspannkraft über den Drehwinkel und über die Zeit darzustellen, so dass am Schluss 4 Grafiken entstehen. Ist wahrscheinlich nicht schwer aber leider bekomme ich es nicht richtig hin.
Mein aktueller Stand bis dato ist:
Drehmoment über Drehwinkel:(funktioniert)
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.Parent.Height = 250
ActiveChart.Parent.Width = 600
With ActiveChart
'Absolute Verortung der Kurven
.Parent.Top = Range("I5").Top
.Parent.Left = Range("I5").Left
.SetSourceData Source:=Range("$A$2:$B$" & letztezeile_aktuell)
' Titel
.ChartTitle.Text = "Schraubversuch " & chart_Nummer & " " & ActiveSheet.Range("R16").Value2
' horizontale Achse
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Drehwinkel [°]"
' vertikale Achse
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Drehmoment [Nm]"
.HasLegend = True
.Parent.Top = Range("Q1").Top
.Parent.Left = Range("Q1").Left
End With
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.Parent.Height = 250
ActiveChart.Parent.Width = 600
Drehmoment über Zeit: (funktioniert nicht)
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.Parent.Height = 250
ActiveChart.Parent.Width = 600
With ActiveChart
'Absolute Verortung der Kurven
.Parent.Top = Range("I5").Top
.Parent.Left = Range("I5").Left
.SetSourceData Source:=Range(E & letztezeile_aktuell)
' Titel
.ChartTitle.Text = "Schraubversuch " & chart_Nummer & " " & ActiveSheet.Range("R16").Value2
' horizontale Achse
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit [s]"
' vertikale Achse
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Drehmoment [Nm]"
.HasLegend = True
.Parent.Top = Range("Q20").Top
.Parent.Left = Range("Q20").Left
End With
Ich hoffe wenn mir des jemand anhand meines Beispiels bei Drehmoment über die Zeit erklärt bekommeich das evtl. auch für die Vorspannkraft hin.
Ich sage schonmal Danke im Vorraus!
Mit freundlichem Gruß
Ludwig
|