Помогите, пожалуйста, мне необходимо изменить цвет черточки закрытия в баре, вот код процедуры:
Sub drawChart()
Dim canChart As ChartObject
Application.SetDefaultChart FormatName:=0
Set canChart = Workbooks("ScanReport").Worksheets("charts").chartObjects.Add(Left:=chartLeft, Width:=375, Top:=chartTop, Height:=225)
canChart.Chart.SetSourceData Source:=Sheets("data").Range(Workbooks("ScanReport").Worksheets("data").Cells(dataBeg, dataColumn), _
Workbooks("ScanReport").Worksheets("data").Cells(dataRow, dataColumn + 3)), PlotBy:=xlColumns
With canChart.Chart
.ChartType = xlStockHLC
.HasTitle = True
.ChartTitle.Text = chartName
.ChartTitle.Font.Name = "Arial"
.ChartTitle.Font.Size = 10
.ChartTitle.Top = 2
.ChartTitle.Left = 8
.HasLegend = False
.ChartGroups(1).HasHiLoLines = True
.ChartGroups(1).HiLoLines.Border.LineStyle = xlSolid
.ChartGroups(1).HiLoLines.Border.Weight = xlThin
.ChartGroups(1).HiLoLines.Border.Color = RGB(0, 0, 255)
End With
End Sub
Использовать SeriesCollection у меня не получилось, поэтому просьба написать код, если это возможно сделать только с помощью этого метода. Заранее спасибо!