Excel X轴图形不可缩放

我得到了一个大小一致的列，所以我试着用下面的代码来绘制它，但是X轴不是按比例的

lr = ThisWorkbook.Sheets("Analysis").Cells(Rows.count, 12).End(xlUp).row
    Range(Selection, Selection.End(xlDown)).Select
     ActiveCell.Range("A1,L1").Select
    ActiveCell.Offset(1, 10).Range("G1").Activate
    ActiveSheet.Shapes.AddChart.Select
      ActiveChart.SetSourceData Source:=Sheets("Analysis").Range("A1,L1").EntireColumn

---

对不起，我不知道为什么我的评论没有出现。所以我得到了第12列，每次我运行数据时它都会变化。Im使用lr函数计算列中的总行数。然后画它，但当我编辑它说的图表时，x比例从第1行到第6564行！我试过使用RangeA1:A&lr，但似乎不起作用。如果您需要更多信息，请告诉我

我也这样试过

 lr = ThisWorkbook.Sheets("Analysis").Cells(Rows.count, 12).End(xlUp).row
    Range(Selection, Selection.End(xlDown)).Select
     ActiveCell.Range("A1:A" & lr, "L1:L" & lr).Select
    ActiveCell.Offset(1, 10).Range("G1").Activate
    ActiveSheet.Shapes.AddChart.Select
      ActiveChart.SetSourceData Source:=Sheets("Analysis").Range("A1:A" & lr, "L1:L" & lr).EntireColumn

---

但是这只会把你正在选择和激活的东西搞砸，但是所选范围内什么都没有发生。您可以计算最后一行，但除了选择范围之外，不使用它。在最后一行代码中，将范围设置为整列。尝试不使用代码。选择。这将至少从VBA中删除4行不必要的代码，并使代码更易于理解

---

请阅读Dick Kusleika的这篇博客文章，内容涉及选择和激活以及何时/何时需要以及为什么：

这是一个纯粹的调试我的代码问题。我们这里不这样做。你的努力在哪里？对不起，不知道为什么我的评论没有出现。所以我得到了第12列，每次我运行数据时它都会变化。Im使用lr函数计算列中的总行数。然后画它，但当我编辑它说的图表时，x比例从第1行到第6564行！我尝试使用RangeA1:A&lr，但它似乎不起作用，其余的代码只是复制和粘贴，