VBAで誤差範囲のバーを設定する

Question

前提・実現したいこと

Win10 Excel2016です。
グラフに誤差範囲のバーを加えたいです。正・負方向ともにC9~I9になります。

発生している問題・エラーメッセージ

誤差範囲を作成する過程を記録し、それらをマクロに組み入れても反映されませんでした。オブジェクト変数またはWithブロック変数が設定されていませんと表示されます。

該当のソースコード

以下は記録した際のマクロです。

Sub 誤差()
' 誤差 Macro
ActiveChart.SetElement (msoElementLineNone)
ActiveChart.FullSeriesCollection(1).HasErrorBars = True
ActiveSheet.ChartObjects("グラフ 30").Activate
ActiveChart.FullSeriesCollection(1).ErrorBars.Select
ActiveChart.FullSeriesCollection(1).ErrorBar Direction:=xlY, Include:= _
xlBoth, Type:=xlCustom, Amount:=0
Application.CutCopyMode = False
Application.CutCopyMode = False
End Sub

試したこと

上記をマクロに組み込んだマクロになります。グラフ30となっていたところをグラフ1に変更してから組み込みました。

'グラフ

Dim ws As Worksheet

For Each ws In Worksheets

Dim dataRng As Range
Set dataRng = Range("C9:I9")

Dim pasteRng As Range
Set pasteRng = Range("K2")

With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlColumnClustered
.SetSourceData dataRng

    'グラフタイトル
    .HasTitle = True
    .ChartTitle.Text = "グラフ1"
    .Parent.Top = pasteRng.Top
    .Parent.Left = pasteRng.Left
     
    'ｘ軸タイトル
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Text = "day"
    

    'ｙ軸タイトル
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Text = "cell counts"
    
    

End With

ActiveChart.SetElement (msoElementLineNone)
ActiveChart.FullSeriesCollection(1).HasErrorBars = True
ActiveSheet.ChartObjects("グラフ1").Activate
ActiveChart.FullSeriesCollection(1).ErrorBars.Select
ActiveChart.FullSeriesCollection(1).ErrorBar Direction:=xlY, Include:= _
    xlBoth, Type:=xlCustom, Amount:=0

補足情報（FW/ツールのバージョンなど）

VBAは最近始めたばかりで拙い内容ですが、ご教授いただけたら幸いです。宜しくお願い致します。

ここにより詳細な情報を記載してください。

Answer 1

データーが

の時

であれば
amount:=1　の値と　minusValues:=2　の値で誤差範囲描けます。

'グラフ
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets(1)

Dim dataRng As Range
Set dataRng = Ws.Range("C7:I8")

Dim pasteRng As Range
Set pasteRng = Ws.Range("K2")

With Ws.Shapes.AddChart.Chart
  .ChartType = xlColumnClustered
  .SetSourceData dataRng

  'グラフタイトル
  .HasTitle = True
  .ChartTitle.Text = "グラフ1"
  .Parent.Top = pasteRng.Top
  .Parent.Left = pasteRng.Left

  'ｘ軸タイトル
  .Axes(xlCategory, xlPrimary).HasTitle = True
  .Axes(xlCategory, xlPrimary).AxisTitle.Text = "day"

  'ｙ軸タイトル
  .Axes(xlValue, xlPrimary).HasTitle = True
  .Axes(xlValue, xlPrimary).AxisTitle.Text = "cell counts"
 
  Dim SerColl　　　　　　　　　　　　　　　　　’＜－－－－追記
  For Each SerColl In .SeriesCollection
    SerColl.HasErrorBars = True
    SerColl.ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, _
                     amount:=1, _
                     minusValues:=2
  Next
End With

追記
データーセルイメージの差し替え
Dim SerColl　の　追記

Comments

[haru555]

回答していただきありがとうございます。
回答していただいたものをコピペして試しましたところ、”変数の定義がされていない”と表示されました。おそらくSerCollの部分だと思われますが、どのように定義すればいいでしょうか。度重なる質問で申し訳ありません。

[sinzou]

追記、修正しました。