vba - エラーバーがグラフに表示されない

Question

MS パワーポイントのグラフに水平方向と垂直方向の両方のエラー バーを作成しようとしています。VBA を使用してエラー バーのパラメーターを設定することはできますが、エラー バーは表示されません。チャートでエラーバーの設定を手動で確認すると、必要な設定が完了しています。以下は私が試しているコードです：

ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.Select
With ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.SeriesCollection(2)
    .HasErrorBars = True
    .ErrorBars.Select
    .ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=100, MinusValues:=100
    .ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:=100, MinusValues:=100
End With
With ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.SeriesCollection(2).ErrorBars.Border
    .LineStyle = msoLineSingle   
    .Color = RGB(0, 112, 192)
    .Weight = 1.5
End With 
With ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.SeriesCollection(2).ErrorBars
     .Select
     .Format.Line.Visible = msoTrue
     .Format.Line.Style = msoLineSingle
     .Format.Line.Weight = 1.5
     .Format.Line.ForeColor.RGB = RGB(0, 112, 192)
     .Format.Line.DashStyle = msoLineSysDash
     .EndStyle = xlNoCap
End With

助けてください。

Answer 1

次の 2 行を削除します。

.HasErrorBars = True
.ErrorBars.Select

Answer 2

最後に、少し大雑把ですが、問題の回避策がありました。

チャートに 2 つの同様のシリーズ コレクションを作成し、1 つに水平方向のエラー バー プロットを適用し、2 つ目に垂直方向のエラー バー プロットを適用しました。コードは次のとおりです。

        ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.FullSeriesCollection(2).ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlFixedValue, Amount:=1000
        With ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.FullSeriesCollection(2).ErrorBars
            .EndStyle = xlCap
            With .Format.Line
                .Visible = msoTrue
                .DashStyle = msoLineDash
                .Weight = 2
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            End With
        End With

        ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.FullSeriesCollection(3).ErrorBar Direction:=xlX, Include:=xlBoth, Type:=xlFixedValue, Amount:=1000
        With ActivePresentation.Slides(SlideNumb).Shapes(ChartName).Chart.FullSeriesCollection(3).ErrorBars
            .EndStyle = xlCap
            With .Format.Line
                .Visible = msoTrue
                .DashStyle = msoLineDash
                .Weight = 2
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            End With
        End With