Excelde çizdirdiğimiz grafiklerin eksenlerinin tiplerini (logaritmik ya da lineer) ToggleButton yardımıyla nasıl değiştirebiliriz?
Bulduğum bir örnekte grafiğin sadece y-ekseninin tipi değişiyor. X-ekseni ise sabit kalıyor... Bunun için yazdığım kod:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Log-scale"
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.ScaleType = xlScaleLogarithmic
End With
Else
ToggleButton1.Caption = "linear-scale"
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.ScaleType = xlLinear
End With
End If
End Sub
şeklindeydi. Ancak dediğim gibi, sadeece y-eksenini kontrol ediyor...
Selamlar...
Bulduğum bir örnekte grafiğin sadece y-ekseninin tipi değişiyor. X-ekseni ise sabit kalıyor... Bunun için yazdığım kod:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Log-scale"
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.ScaleType = xlScaleLogarithmic
End With
Else
ToggleButton1.Caption = "linear-scale"
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.ScaleType = xlLinear
End With
End If
End Sub
şeklindeydi. Ancak dediğim gibi, sadeece y-eksenini kontrol ediyor...
Selamlar...