Contour series is used.
Tools were added with the «Editing» with no errors.

Thanks in advance,
Danila.
Code: Select all
With Chart8
.Tools.Add(37)
.Tools.Items(0).Active = True
.Tools.Items(0).asLegendPalette.Series = .Series(0)
End With