用VBA添加水平误差线，救我啊！！急急！

sijishihua

大神们好，小弟用VBa在已成形的折线图表上加二条水平标准误差线，但想了很多种方法都没有什么卵用！录宏之后运行，VBa的代码就是报错，并且呈现垂直误差线，恳请大神们，救救我啊！！！急等

sijishihua

自己顶一下，求大神们给予帮忙

sijishihua

顶一下，直到老师看到

sijishihua

顶，顶，顶。

lsdongjh

1. Sub Test()
   
2.     Dim SH As Worksheet
   
3.     Dim objChart As Chart
   
4.     Dim rgSource As Range, rgLocal As Range
   
5.     Dim strAmount As String, strMinusValues As String
   
6.     Dim intID As Integer, arrColor As Variant
   
7.    
   
8.     Set SH = Sheets("Sheet4")
   
9.     Set rgSource = SH.Range("A2:D18") '数据区域
   
10.     strAmount = "{" & rgSource.Rows.Count - 1 & "}" '误差，正偏值
    
11.     strMinusValues = "{0}" '误差，负偏值
    
12.    
    
13.     Set rgLocal = SH.Range("G2") '图表左上角单元格
    
14.     Set objChart = SH.Shapes.AddChart.Chart
    
15.     objChart.ChartArea.Top = rgLocal.Top
    
16.     objChart.ChartArea.Left = rgLocal.Left
    
17.     objChart.ChartArea.Height = 320
    
18.     objChart.ChartArea.Width = 520
    
19.    
    
20.     objChart.SetSourceData rgSource, 2 '设置数源，以列为单元
    
21.     objChart.FullSeriesCollection(1).ChartType = xlLineMarkersStacked '第一系列 为折线
    
22.     objChart.FullSeriesCollection(2).ChartType = xlXYScatter '第二系列 为散点
    
23.     objChart.FullSeriesCollection(3).ChartType = xlXYScatter '第三系列 为散点
    
24.     objChart.FullSeriesCollection(2).AxisGroup = 1 '设置第二系列 为主坐标
    
25.     objChart.FullSeriesCollection(3).AxisGroup = 1 '设置第三系列 为主坐标
    
26.     objChart.HasLegend = False '隐藏图例
    
27.    
    
28.     '第二、三系列添加水平误差线，误差量为自定义
    
29.     arrColor = Array(0, 0, RGB(238, 201, 0), RGB(178, 34, 34))
    
30.     For intID = 2 To 3
    
31.         objChart.FullSeriesCollection(intID).ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth, _
    
32.                                                                      Type:=xlCustom, amount:=strAmount, minusvalues:=strMinusValues
    
33.         With objChart.FullSeriesCollection(intID).ErrorBars.Format.Line
    
34.             .Visible = msoTrue
    
35.             .Weight = 3
    
36.             .ForeColor.RGB = arrColor(intID)
    
37.             .Transparency = 0
    
38.         End With
    
39.     Next
    
40. End Sub

复制代码

sijishihua

顶一下，顶一下

sijishihua

lsdongjh 发表于 2018-9-18 13:07

谢谢，解决了我的燃眉之急