Achsen-Makro
09.03.2005 15:47:47
Ivi
mein Problem ist das Folgende Makro.
Sub B_Besch_Achsen()
ActiveSheet.ChartObjects("Diagramm 15").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = ActiveSheet.Cells(2, 49).Value
.MaximumScale = ActiveSheet.Cells(2, 60).Value
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = ActiveSheet.Cells(5, 49).Value
.MaximumScale = ActiveSheet.Cells(4, 60).Value
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Es soll die Achsen formatieren.So in einem sheet funktioniert das ganze wunderbar aber im anderem nicht.
Ich glaube es leigt an der Achsenformatierung.
Wenn ich sie aktiviere ist es ok aber sobald ich das Makro laufen lasse....
kriege ich nen Salat.Die Achsenformate stimmen nicht usw.
Jemand eine Idee wie man das lösen kann?
Danke und Gruß