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））シリーズのコレクション値を上書き 値がウィスカー

をプロットした後に交換することができます