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, "Внимание!"