Question

我正在尝试将一些代码添加到已经工作的宏的底部，该宏将向我刚刚复制数据的工作表添加图表。数据量经常变化，因此我需要数据范围可变。但是当我运行代码时，它给出了错误“运行时错误'1004'：对象'_Worksheet'的方法'范围'失败了”

Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Name Search")
Dim rng As range
Dim cht As Object
lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row

'Your data range for the chart
  Set rng = destSheet.range("F6:G" & lMaxRows)

'Create a chart
  Set cht = destSheet.Shapes.AddChart2

'Give chart some data
  cht.chart.SetSourceData Source:=rng

'Determine the chart type
  cht.chart.ChartType = xlXYScatterLines

错误发生在“您的图表数据范围”注释下的行上。任何帮助将不胜感激。

之前，我从未能通过VBA成功制作图表

excel vba发布创建图表的问题

0 个答案: