工作表（“日志-数据”）。激活
LastRow =活动工作表.已用范围.行（活动工作表.已用范围.行.计数）.行
ActiveChart.设置源数据源：=工作表（“Log-Data”）.范围（单元格（12，2），单元格（最后一行，2）），绘图依据：=xlColumns
工作表（“名称_CHEET_图表”）。激活

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

我尝试了下面的方法，它起作用了（在Cells单词前加一个句号）

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

试试下面的，让我知道

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