1 2 3 4 5 6 | Sub set_graph_lob_fam() ActiveChart.Axes(xlValue). Select ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MaximumScale = 0.01 ActiveChart.Axes(xlValue).MajorUnit = 0.002 End Sub |
1 2 3 4 5 6 | Sub set_graph_lob_fam() ActiveChart.Axes(xlValue). Select ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MaximumScale = 0.01 ActiveChart.Axes(xlValue).MajorUnit = 0.002 End Sub |