Excel的VBA图表 - >范围选择在图表

Question

中我试图修改现有VBA代码（EXCEL），使图表显示了使用“单元格”，并使其更加灵活。

我知道下面的代码片段基本上做同样的事情：

Range(Cells(12, 2), Cells(15, 2)).Select  

是或多或少相同：

Range("B12:B15").Select  

我的目标是有一个曲线图，其代表行的灵活计数。

所以我已经改变了现有代码：

ActiveChart.SetSourceData Source:=Sheets("Log-Data").Range("B12:B200"), PlotBy:=xlColumns  

到

Dim LastRow As Integer 
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row  
ActiveChart.SetSourceData Source:=Sheets("Log-Data").Range(Cells(12, 2), Cells(LastRow, 2)), PlotBy:=xlColumns  

现在，每当我执行的代码，我收到：

运行时错误“1004 “：应用程序定义或对象定义的错误

的LastRow变量是没有问题的：我也有同样的结果，如果我有200

我在做什么错更换呢？

干杯

彼得

Answer 1

LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

和

LastRow = ActiveSheet.UsedRange.Rows.Count

是相同的。

至于实际的错误去，它看起来好像你有当代码运行没有活动的图表对象。所以ActiveChart.返回一个对象错误。

试试这个：下面

Dim LastRow As Integer 
LastRow = ActiveSheet.UsedRange.Rows.Count 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.SetSourceData Source:=Sheets("Log-Data").Range(Cells(12, 2), Cells(LastRow, 2)), PlotBy:=xlColumns 

Answer 2

尝试，让我知道

Dim LastRow As Integer 
LastRow = ActiveSheet.UsedRange.Rows.Count 

With Sheets("Log-Data") 
Set Myrange = .Range(Cells(12, 2), Cells(LastRow, 2)) 
End With 

ActiveSheet.Shapes.AddChart.Select 
ActiveChart.SetSourceData Source:=Myrange, PlotBy:=xlColumns 

Answer 3

我尝试了以下内容和它的作品（前加入细胞字一期）

Dim LastRow As Integer 
LastRow = ActiveSheet.UsedRange.Rows.Count 

With Sheets("Log-Data") 
Set Myrange = .Range(.Cells(12, 2), .Cells(LastRow, 2)) 
End With 

ActiveSheet.Shapes.AddChart.Select 
ActiveChart.SetSourceData Source:=Myrange, PlotBy:=xlColumns