请益 关於 excel vba 误差线

在excel-组合图表( 折线图+散布图) 设定

散布图中的 误差线 可设定成 水平误差线

请问 各位大大 在excel vba 时能用code 控制误差线吗

ActiveSheet.ChartObjects("Results2").Activate
ActiveChart.FullSeriesCollection(2).Select
ActiveChart.FullSeriesCollection(2).Points(1).Select
ActiveChart.FullSeriesCollection(2).HasErrorBars = True
ActiveChart.FullSeriesCollection(2).ErrorBars.Select
ActiveSheet.ChartObjects("Results2").Activate
ActiveChart.FullSeriesCollection(2).Points(1).Select
ActiveChart.FullSeriesCollection(2).ErrorBar Direction:=xlX, Include:= _
    xlPlusValues, Type:=xlCustom, Amount:=6