title image


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



vielleicht kommst du damit zurecht



Sub Digrammdaten_angleichen()

Dim c As Double

ActiveSheet.ChartObjects("Diagramm 2").Activate

c = ActiveChart.Axes(xlCategory).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



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: