Hallo, ich möchte ein Liniendiagramm mit VBA erstellen, dazu habe ich versucht einen Code zu schreiben, dieser fuktioniert jedoch noch nicht so richtig.
Wenn ich das Programm ausführe gibt Excel zwar den Rahmen aus, jedoch nicht den Inhalt bzw. die Kurve, die entstehen müsste.
Gibt es hier jemand, der mit behilflich sein und mal einen Blick auf den Code werfen?
Vielen Dank :)
ActiveSheet.ChartObjects.Add(50, 80, 600, 380).Select
ActiveChart.ChartWizard Source:=Range("A37:B1037").Chart
ChartType = xlLine
FormatType = 10
PlotBy = xlCollums
Categorylabels = 1
serieslabels = 0
HasLegend = 2
Title = "Druckverlauf in abhängigkeit der Zeit"
categorytitle = "t/ms"
valuetile = "p/hPa"
extratitle = ""
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With ActiveChart.Axes(xlCategory)
.TickLabelSpacing = 100
.TickMarkSpacing = 100
.AxisBetweenCategories = False
.ReversePlotOrder = False
End With
|