Заливка между графиками (кривыми) в MS Excel

[inkerman]

Добрый день
Подскажите как можно сделать заливку между линиями (это коридоры допустимых отклонений для различных точек надежности)





Проблема в том, что графики уходят ниже нуля и сделать подобную заливку проблематично. У меня вариант только один: разбивать каждую линию на две: больше нуля и меньше нуля и для каждой определять правила заливки и цвета, причем важен будет порядок наслоения.
Таким образом из 6 синусоид получится 12 кусочных кривых. Помимо громоздкости, неприятность в том, что в легенде графика будет 12+1 позиций из которых нужны лишь 6+1. ИМХО это кривоватое решение. Есть ли более красивое?

файл данных

[IgorGO]

как-то так

Sub Sinus()
  Dim y(3) As Double, dy(3) As Double, y0 As Double, i As Long, x As Double
  dy(1) = 90: dy(2) = 50: dy(3) = 20
  For x = 0 To 314 * 5
    y0 = 100 * Sin(x / 100)
    For i = 1 To 3
      With ActiveSheet.Shapes.AddLine(50 + x / 3, 200 - y0 - dy(i), 50 + x / 3, 200 - y0 + dy(i)).Line
        .ForeColor.RGB = RGB(i, 100 * i, 25 * i * i)
      End With
    Next
  Next
End Sub



Sub DelShapes()
  Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
    sh.Delete
  Next
End Sub

первая процедура наризует 3 синусоиды, а вторая удалит линии из которых они нарисованы (чтобы не удалять 5 тыс.линий вручную)
добавте массив из 3-х RGB (нужного Вам цвета) - зарисуете нужными Вам цветами а не как у меня получилось.