VBA График диаграммы ящиков и нитей

Question

Я пытаюсь автоматизировать построение графика ящиков и усов. Код ниже компилируется и запускается, но строки ошибок не отображаются в диаграмме.

Dim ws As Worksheet 
Dim datarange As Range 
Dim chtChart As Chart 
Dim objChrt As ChartObject 

Set ws = Sheets("sheet1") 
Set datarange = ws.Range("F8:G10") 

Set chtChart = Charts.add 

With chtChart 

    chtChart.ChartType = xlColumnStacked 
    chtChart.SetSourceData Source:=datarange, PlotBy:=xlColumns 

    With .Axes(xlCategory, xlPrimary) 
     .CategoryNames = ws.Range("A2:A13") 
     .TickLabels.Font.Bold = True 
    End With 
     .SeriesCollection(1).Format.Fill.Visible = msoFalse 
     .SeriesCollection(2).Format.Fill.Visible = msoTrue 


    Dim Sec1 As Series 
    Set Sec1 = .SeriesCollection.NewSeries 
    .SeriesCollection(3).HasErrorBars = True 
    .SeriesCollection(3).ErrorBars.EndStyle = xlCap 
    .SeriesCollection(3).ErrorBars.Format.Line.Visible = msoTrue 
    .SeriesCollection(3).ErrorBars.Format.Line.ForeColor.RGB = RGB(0, 0, 0) 
    .SeriesCollection(3).ErrorBars.Format.Line.Transparency = 0 
    .SeriesCollection(3).ErrorBars.Format.Line.Weight = 1.5 
    .SeriesCollection(3).ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:="=CHART!F12:G12", MinusValues:="=CHART!F12:G12" 

Answer 1

Решено.

.SeriesCollection(3).values= <data range for whisker length> 

вариантного типа, значение данных требуется для построения бакенбарды ВАЖНО: это перезаписывает значения коллекции серии (seriescollection (3) в данном случае) значений может быть заменены после планировавших усов