Set pLegendInfo = pChartRenderer

     pLegendInfo.LegendGroup(0).Heading = "Количество курганов"

  End If

  'Создание градиентной заливки

  If ob_grad.Value = True Then

    Dim rx As IAlgorithmicColorRamp

    Set rx = New AlgorithmicColorRamp

    Dim FC As IColor

    Dim TC As IColor

    Set FC = New RgbColor

    Set TC = New RgbColor

    FC.RGB = RGB(0, 100, 0)

    TC.RGB = RGB(0, 255, 0)

    rx.Algorithm = esriHSVAlgorithm

    rx.FromColor = FC

    rx.ToColor = TC

  ' Создание заливки и классификация объектов

    Dim pRender As IUniqueValueRenderer, n As Long

    Set pRender = New UniqueValueRenderer

    Dim symd As ISimpleFillSymbol

    Set symd = New SimpleFillSymbol

     symd.Style = esriSFSSolid

     symd.Outline.Width = 0.4

     pRender.FieldCount = 1

    If (cb_raskop.Value = True) And (cb_neraskop.Value = True) Then

      MsgBox "Выберите один параметр", vbOKOnly, "Внимание!"