1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub ChartsToggle()
For i = 1 To ActiveSheet.ChartObjects.Count
Application.DisplayAlerts = False
If ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).ScaleType = xlLinear Then
ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).ScaleType = xlLogarithmic
ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).ScaleType = xlLogarithmic
Else
ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).ScaleType = xlLinear
ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).ScaleType = xlLinear
End If
Next i
Application.DisplayAlerts = True
End Sub |