title image


Smiley Re:(Noch) nicht ganz verstanden
Hi Hansjochen,



so ganz kann ich dein Problem nicht nachvollziehen. Versuche es mit diesem Code.



Sub Digrammdaten_angleichen()

Dim c As Double

ActiveSheet.ChartObjects(1).Activate

c = ActiveChart.Axes(xlValue, xlSecondary).MaximumScale

With ActiveChart.Axes(xlValue)

.MinimumScaleIsAuto = True

.MaximumScale = c / 10

.MinorUnitIsAuto = True

.MajorUnitIsAuto = True

.Crosses = xlAutomatic

.ReversePlotOrder = False

.ScaleType = xlLinear

.DisplayUnit = xlNone

End With

End Sub



Falls das nicht funktionieren sollte, schicke mir deine Arbeitsmappe mit einer entsprechenden Beschreibung. Meine Mail-Adresse findest du auf meiner Microseite

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: