无法在Excel Excel VBA中执行条形图的着色脚本

Question

我已经根据某些条件对图形中的彩条进行了编码。但是，如果值为零，则此代码将不会运行。试图包括“下一个错误恢复”，但在此零小节之后它忽略了所有小节... 这是代码的相关部分。

  With wDash.ChartObjects("Chart 3").Chart.SeriesCollection(1)       
  Set xRg = rngChart        
  On Error Resume Next        
  For i = 1 To Lrow            
  .Points(i).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(i - 1, 0).Font.ColorIndex)        
  Next    
  End With