我开发了以下代码来从命名范围“Table24”创建图表。但是，有时此表没有有效数据，然后我希望我的数据集范围是一个带有 0 的单元格，并在没有数据的情况下填充图表。
这是 5 个图表中的第 4 个 - 使用调试模块，我确定这是每次运行时都会使我的 excel 文件崩溃的代码：
'//////////////////CHART 4 Creation //////////////////////////////
Set myChtRange = ws.Range("L43:R63")
' What range contains data for chart
If ws.Range("Table24").Rows.Count > 0 Then
Set myDataRange = ws.ListObjects("Table24").ListColumns(3).DataBodyRange
Else
Set myDataRange = ws.Range("K1")
End If
' Cover chart range with chart
Set objChart = .ChartObjects.Add( _
Left:=myChtRange.Left, Top:=myChtRange.Top, _
Width:=myChtRange.Width, Height:=myChtRange.Height)
' Put all the right stuff in the chart
With objChart.Chart
.ChartArea.AutoScaleFont = False
.ChartType = xlColumnClustered
.ChartStyle = 214
.SetSourceData …