问如果序列中的值大于1000000，则使用宏调整图表的y轴

EN

'This is the code i'm using to generate the chart
'counting total rows
lr = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row

'counting total columns
lc = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column

   Set chtRng = Range(Cells(1, 1), Cells(lr, LC))
   Worksheets("sheet1").Activate

'Deleting the current chart (PS: If you could suggest a way to update the
'input values and refresh the chart rather than deleting the chart and 'adding a new one)

   For Each chtObj In ActiveSheet.ChartObjects
    chtObj.Delete
    Next

  'Adding new chart
   With ActiveSheet.Shapes
   .AddChart2(227, xlLine).Select
   End With

    With ActiveChart
         '.Axes(xlValue).DisplayUnit = xlMillions
         .SetElement (msoElementLegendBottom)
            With ActiveChart.Parent
            .Height = 250
            .Width = 450
            .Top = 20    ' reposition
            .Left = 280 ' reposition
            End With
         End With

 'I tried using the following code but it doesn't work.

  If xlValue >= 1000000 Then
         With ActiveChart
       .Axes(xlValue).DisplayUnit = xlMillions
       End With
       Else
       End If