Wie gehts die Begrenzug der x-Achse MaximumScale
22.06.2004 11:46:19
Frank
ich habe vor die x-Achse eines Diagramms über ein Makro zu begrenzen.
in ein Feld gebe ich vorher den max. Wert vor.
hier 0,5. Wie kann
".MaximumScale = 0.5" mit ActiveSheet.Paste klappt es nicht
Sub timerange()
' timerange Makro
' Die Diagramme passen sich der max.Abschaltzeit an.
' Tastenkombination: Strg+t
Sheets("Eingabewerte ").Select
Range("H15").Select
ActiveCell.FormulaR1C1 = "0.5"
Sheets("ein Ik""3 mit Ausströmung ").Select
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScale = 0.5
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
Sheets("ein Ik""3 ohne Ausströmung").Select
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScale = 0.5
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Vielen Dank!
MfG, Frank