Developing.ru

Помогите, пожалуйста, мне необходимо изменить цвет черточки закрытия в баре, вот код процедуры:
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 у меня не получилось, поэтому просьба написать код, если это возможно сделать только с помощью этого метода. Заранее спасибо!

проблему решил, можно не отвечать.