2014年8月15日金曜日

(VBA)2D折れ線グラフのエラーバーにユーザー設定の値を設定する

グラフがいっぱいあると画面からポチポチやるの大変 
マジ腱鞘炎
        

  Dim bk As Workbook: Set bk = Workbooks("3rdData_AR2MN_グラフ.xlsx")
  Dim s As Worksheet: Set s = bk.Worksheets("data_all_AR2MN(p2)")
  Dim co As ChartObject
  Dim i As Long: i = 0
  
  Dim sumR As Long: sumR = 72
  Dim r  As Range: Set r = s.Range("E" & CStr(sumR))
  
  For Each co In s.ChartObjects
  
    Dim sc As Series: Set sc = co.Chart.SeriesCollection(1)
    Dim am(1) As Variant
    am(0) = r.Offset(0, i).Value
    am(1) = r.Offset(0, i + 1).Value
    
    sc.ErrorBar xlY, xlErrorBarIncludeBoth, xlErrorBarTypeCustom, am, am
    
    i = i + 3
    
  Next

sumRは合計行の位置で、要素が3列づつあるのでi+=3になってます。 
こまけーことはお気になさらずに。。。

0 コメント:

コメントを投稿