Snasui Excel Forum

Code: Select all

Option Explicit

Sub Macro1()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(i).Activate
    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .MinimumScale = Worksheets("Sheet1").Range("B18").Value
        .MaximumScale = Worksheets("Sheet1").Range("B19").Value
        .MajorUnit = 1
        .CrossesAt = Worksheets("Sheet1").Range("B18").Value
    End With
Next i
    Worksheets("Sheet1").Range("A1").Select
End Sub

Code: Select all

Sub DynamicAxis()
'
'

Dim i As Integer

For i = 1 To ActiveSheet.ChartObjects.Count

    ActiveSheet.ChartObjects(i).Activate
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
    
        ActiveChart.Axes(xlValue).MinimumScale = Worksheets("HTUGanttChart").Range("B18").Value
        ActiveChart.Axes(xlValue).MaximumScale = Worksheets("HTUGanttChart").Range("B19").Value
        .MajorUnit = 7
        Application.CommandBars("Format Object").Visible = False
        
    End With
    
Next i

        Range("A1").Select
        
End Sub