部分面积图未填充vba

我正在尝试生成面积图，对于超过阈值的值，它显示为绿色，对于低于阈值的值，它显示为红色。我能够生成图表，但我的问题是我没有得到连续的图形（它们总是在不同颜色的值之间出现间隙空间，即使单元格中有一个数字表示图形中的间隙）。 图形的示例代码：

Sub x_Graph()

'Define Chart
Dim c As Chart
Set c = ActiveWorkbook.Charts.Add
Set c = c.Location(Where:=xlLocationAsObject, Name:="RRL")
With c
.ChartType = xlArea
.HasTitle = True
.ChartTitle.Text = Sheets("Control Data").Range("C4").Value
End With

'Delete pre-defined series
Do Until ActiveChart.SeriesCollection.Count = 0
ActiveChart.SeriesCollection(1).Delete
Loop

With c
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Sheets("PD").Range("AN$34:AY$34")
.SeriesCollection(1).Values = Sheets("PD").Range("AN$40:AY$40")
.SeriesCollection.NewSeries
.SeriesCollection(2).XValues = Sheets("PD").Range("AN$34:AY$34")
.SeriesCollection(2).Values = Sheets("PD").Range("AN$41:AY$41")

'Name series and format size

c.SeriesCollection(1).Name = "HU (days/month)"
c.SeriesCollection(2).Name = "LU (days/month)"
.Parent.Width = 700
.Parent.Height = 450

End With

c.SeriesCollection(1).Select
With Selection
.Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
End With

c.SeriesCollection(2).Select
With Selection
.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With

'Format fonts
c.Legend.Select
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Size = 14
        .Name = "Arial"
        End With
c.Axes(xlValue).Select
With Selection.TickLabels.Font
     .Size = 14
     .Name = "Arial"
   End With
c.Axes(xlCategory).Select
With Selection.TickLabels.Font
     .Size = 14
     .Name = "Arial"
   End With

End Sub

图表如下所示：

在红色和绿色区域之间有一个间隙，即使单元格中有数据

输入数据的格式如下： 绿色是从“好”系列创建的，红色是从“坏”系列创建的

和背景代码： 等

有人知道能做什么吗

非常感谢

---

FN

在没有看到数据的情况下，我认为我们不能排除这是一个数据问题。你能做个垫子吗？谢谢你的回答。我已经创建了一个迷你版，我如何连接它？Mat的杯子：如果它不工作，请告诉我。非常感谢FNI将所有相关信息包含在问题本身中，而不是在下载链接后面（顺便说一句，我没有点击）。Mat的马克杯-我在原始帖子中提供了截图-这足以让你提供帮助吗？非常感谢您的反馈