Makro i Excel diagram

Er det noget i denne stil du er ude efter? Hver gang makroen aktiveres skifter min. værdien.

Sub Macro1()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    If ActiveChart.Axes(xlValue).MinimumScale = 50 Then
    ActiveChart.Axes(xlValue).MinimumScale = 60
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 60 Then
    ActiveChart.Axes(xlValue).MinimumScale = 70
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 70 Then
    ActiveChart.Axes(xlValue).MinimumScale = 80
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 80 Then
    ActiveChart.Axes(xlValue).MinimumScale = 90
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 90 Then
    ActiveChart.Axes(xlValue).MinimumScale = 100
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 100 Then
    ActiveChart.Axes(xlValue).MinimumScale = 50
  End If
  End If
  End If
  End If
  End If
  End If
  Application.CommandBars("Format Object").Visible = False
  Range("A1").Select
 
End Sub

Hvis du retter 4. linje til

  If ActiveChart.Axes(xlValue).MinimumScale <= 50 Then

.så starter de også ok, selv om minimumsværdien er 0

Hej Jens48

Hvis jeg kan få din løsning til at fungere vil det være rigtig fint. Jeg havde selv tænkt på at koble en Makro til en Knap for hver værdi.
Jeg kan se nu, at jeg skulle have vendt talrækken om, med det største tal først.
Jeg ser på det.

Hej Jens48

Jeg har nu fået det til at fungere. Jeg har vendt talrækken om. Starter fra 100 og går trinvis 5 ned til 55. Jeg har koblet en knap til Makroen.
Dog kan jeg ikke få det til at fungere, hvis jeg tilføjer følgende linier fra dit forslag:

Application.CommandBars("Format Object").Visible = False
Range("A1").Select

Hvad betydning har de 2 linier? Sker der noget ved at undlade dem?

Koden ser herefter sådan ud nu:
Sub Makro100()
'
' Makro100 Makro
'
' Ændrer lodret akse trinvis med 5 fra 100 til 55

    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.Axes(xlValue).Select
       
   
    If ActiveChart.Axes(xlValue).MinimumScale > 100 Then
    ActiveChart.Axes(xlValue).MinimumScale = 100
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 100 Then
    ActiveChart.Axes(xlValue).MinimumScale = 95
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 95 Then
    ActiveChart.Axes(xlValue).MinimumScale = 90
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 90 Then
    ActiveChart.Axes(xlValue).MinimumScale = 85
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 85 Then
    ActiveChart.Axes(xlValue).MinimumScale = 80
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 80 Then
    ActiveChart.Axes(xlValue).MinimumScale = 75
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 75 Then
    ActiveChart.Axes(xlValue).MinimumScale = 70
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 70 Then
    ActiveChart.Axes(xlValue).MinimumScale = 65
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 65 Then
    ActiveChart.Axes(xlValue).MinimumScale = 60
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 60 Then
    ActiveChart.Axes(xlValue).MinimumScale = 55
    Else
    If ActiveChart.Axes(xlValue).MinimumScale = 55 Then
    ActiveChart.Axes(xlValue).MinimumScale = 100

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


End Sub

Det var vist et par koder der kom ind ved en fejl. De skal blot udelades