X Axis неправильно рисует

Question

У меня есть макрос, который отображает данные для меня. Все, что касается макроса, работает с одним исключением: я хочу переименовать метки оси x. Макрос делает это, но он не делает это правильно. В некоторых случаях он сдвигает рамки, а в других - категорически неправильно. Предполагается, что макрос должен отображать данные по идентификатору продукта (один график на идентификатор продукта), а затем изменить категорию оси x на метку в столбце F в «Данные диаграммы».

Заранее благодарю вас за помощь.

Ниже приводится часть макроса, который создает диаграммы, а затем меняет ось х:

Sub MakeCharts() 
Dim sh As Worksheet 
Dim rAllData As Range 
Dim rChartData As Range 
Dim cl As Range 
Dim rwStart As Long, rwCnt As Long 
Dim chrt As Chart 

Set sh = ActiveSheet 
ActiveSheet.Range("a1").Select 
With sh 

' Get reference to all data 
    Set rAllData = .Range(.[A2], .[A2].End(xlDown)).Resize(, 5) 
    ' Get reference to first cell in data range 
    rwStart = 1 
    Set cl = rAllData.Cells(rwStart, 1) 
    Do While cl <> "" 
     ' cl points to first cell in a station data set 
     ' Count rows in current data set 
     rwCnt = Application.WorksheetFunction. _ 
      CountIfs(rAllData.Columns(1), cl.Value) 
     ' Get reference to current data set range 
     Set rChartData = rAllData.Cells(rwStart, 1).Resize(rwCnt, 5) 
     ' Create Chart next to data set 
     Set chrt = .Shapes.AddChart(xlLineMarkers, _ 
      rChartData.Width, .Range(.[A2], cl).Height).Chart 
     With chrt 
      .SetSourceData Source:=rChartData.Offset(0, 1).Resize(, 4) 
      ' -----> Set any chart properties here <----- 

      ' Add Title 
      .SetElement msoElementChartTitleCenteredOverlay 
      .ChartTitle.Caption = cl.Value 

      'Change chart name 
      .Parent.Name = cl.Value 

      'Remove Legend 
      .SetElement (msoElementLegendNone) 

      ' Adjust plot size to allow for title 
      .PlotArea.Height = .PlotArea.Height - .ChartTitle.Height 
      .PlotArea.Top = .PlotArea.Top + .ChartTitle.Height 

      'Change the x-axis to a more organized set 
      .SeriesCollection(1).XValues = "='Chart Data'!$F$2:$F$1048576" 

      'Set Max and Min for charts 
      .Axes(xlValue).MinimumScale = Sheets("Chart Data").Range("K1") 
      .Axes(xlValue).MaximumScale = Sheets("Chart Data").Range("K2") 

      'Adjust x-axis to tilt 45 degrees top left to bottom right 
      .Axes(xlCategory).TickLabels.Orientation = 45 



     End With 


     ' Get next data set 
     rwStart = rwStart + rwCnt 
     Set cl = rAllData.Cells(rwStart, 1) 
    Loop 

End With 

Answer 1

под «Изменением оси х на более организованный набор, я использовал следующий код:

.SeriesCollection(1).XValues = "='Chart Data'!" & rChartData.Offset(, 5).Resize(, 1).Address