Messungen an PSI- und Nafion-Membranen zur Bestimmung des ...

xlXYScatter, Format:=1, PlotBy:=xlColumns, CategoryLabels:=1, _SeriesLabels:=0, HasLegend:=2, Title:=Head & " - Linear Regression 2", _CategoryTitle:="1/t", ValueTitle:="ln(Sqrt(t)*I31(t)/I31)", ExtraTitle _:=""ActiveSheet.ChartObjects("Chart 3").ActivateActiveChart.PlotArea.SelectWith Selection.Border.Weight = xlThin.LineStyle = xlContinuousEnd WithSelection.Interior.ColorIndex = xlNoneActiveChart.SeriesCollection(1).SelectWith Selection.Border.Weight = xlHairline.LineStyle = xlNoneEnd WithWith Selection.MarkerBackgroundColorIndex = xlNone.MarkerForegroundColorIndex = 1.MarkerStyle = xlCircle.Smooth = FalseEnd WithActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward _:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=False).SelectReg_Equation = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.TextActiveChart.SeriesCollection(1).Trendlines(1).SelectWith Selection.DisplayRSquared = True.DisplayEquation = TrueEnd WithActiveChart.ChartArea.SelectActiveWindow.Visible = False'MsgBox Reg_EquationEnd SubSub Graph2(Min, Max, Head, Reg_Equation)' displays the linear part of the saturation slope for checking the linearityActiveSheet.ChartObjects.Add(50, 50, 400, 300).SelectApplication.CutCopyMode = FalseActiveChart.ChartWizard Source:=Range("C" & Min & ":C" & Max & ",M" & Min &":M" & Max), Gallery:= _xlXYScatter, Format:=1, PlotBy:=xlColumns, CategoryLabels:=1, _SeriesLabels:=0, HasLegend:=2, Title:=Head & " - Linear Regression", _CategoryTitle:="Sqrt(t)", ValueTitle:="I31(t)/I31", _ExtraTitle:=""ActiveSheet.ChartObjects("Chart 2").ActivateActiveChart.ChartArea.SelectActiveChart.SeriesCollection(1).SelectWith Selection.Border.Weight = xlThin.LineStyle = xlNoneEnd WithWith Selection.MarkerBackgroundColorIndex = xlNone.MarkerForegroundColorIndex = 1.MarkerStyle = xlCircle.Smooth = False.MarkerSize = 5.Shadow = FalseEnd WithActiveChart.PlotArea.Select