Question

所以我有一个大小一致的列，所以我试图用下面的代码绘制它，但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列每次运行数据时都会有所不同。我使用lr函数来计算列中的总行数。然后绘制图形，但是当我编辑图表时，x刻度从第1行到第6564行！我试过使用Range（＆＃34; A1：A＆＃34;＆amp; 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

但这只会搞砸一切

Answer 1

您正在选择和激活内容，但所选范围内没有任何内容。您计算最后一行，但除了选择范围之外，您不会将其用于任何事情。在最后一行代码中，将范围设置为整个列。尝试使用不带.Select的代码。这至少会从您的VBA中删除4行不必要的代码，并使代码更容易理解。

阅读Dick Kusleika关于选择和激活的博客文章以及何时/不需要以及为什么：http://dailydoseofexcel.com/archives/2004/04/27/beginning-vba-select-and-activate/

X轴图未按比例绘制

1 个答案: