如何在圖表上以編程方式設置X軸？

Question

我在Excel中的工作表中有一個圖表，並且我設置了一個宏，以便當我更改某個單元格中的值時，圖表中的數據範圍設置爲A2，直至此行中對應的行號某些細胞。

似乎什麼我不能要能夠做的就是修改軸作爲指定軸不再覆蓋圖的範圍即當前X軸設置爲：

=Sheet1!$C$2:$C$600 

我可以我不知道如何在宏中更新它。任何幫助將非常感激。

Answer 1

您應該可以像設置other question那樣在蘭斯的答案中設置XValues屬性。

Charts("chartname").SeriesCollection(1).XValues = "=MYXAXIS" 

或任何你稱爲x軸值的命名範圍。如果圖表中有多個系列，則需要更改SeriesCollection中的值以引用正確的系列。

Answer 2

「某些單元格」是否包含數據的最後一個行號？ （它不是很清楚）

假設單元格F1包含數據中的最後一行。您可以構建如下地址和範圍：

Dim rXVals As Range 
Dim sAddress AS String 

sAddress = "Sheet1!$C$2:$C$" & Worksheets("Sheet1").Range("F1").Value 
Set rXVals = Range(sAddress) 
Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).XValues = rXVals