VBA情節盒和晶須圖表

我試圖自動繪製一盒和晶須圖表。下面的代碼編譯並運行，但錯誤欄不顯示在圖表中。VBA情節盒和晶須圖表

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"

來源

2016-06-15 GarENt sIrUS

已解決。

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

型變體中，所需要的數據值來繪製晶須重要：此覆蓋系列收集的值（的SeriesCollection（3）在這種情況下）值可以被繪製晶須

後更換

來源

2016-06-16 03:45:48

VBA情節盒和晶須圖表

回答

相關問題