合并列聚类图和XY散点图

Question

我有一个列聚类图表和一个XY散点图，我想将它们组合在一起。它们具有相同的X和Y轴，但是当我将它们组合在一起时，列聚类图表的X轴将消失。

这是XY散点图

这是柱形聚集图

当我将XY散点图复制到列聚类图时，这就是结果

我已尝试使用此link中的方法将群集的列更改为错误栏，并且我可以使其正常工作。但是，由于我想将其转换为VBA，所以它似乎并没有按我希望的那样工作。虚线有点奇怪，如下所示。

我录制了一个宏来删除虚线，但它只会完全删除错误栏。 这是我的代码，使用宏和一点点更改即可将列聚簇图转换为误差线。

Sub Macro2()
    Dim cht As Chart

    Set cht = ActiveChart

    With cht
        .ChartType = xlXYScatterSmoothNoMarkers

        With .FullSeriesCollection(1)
            .HasErrorBars = True

            .ErrorBars.EndStyle = xlNoCap
            .ErrorBar Direction:=xlY, Include:= _
                xlMinusValues, Type:=xlPercent, Amount:=100

            With .ErrorBars.Format.Line
                .Visible = msoTrue
                .Weight = 10
            End With

            .Format.Line.Visible = msoFalse
            '.ErrorBars.Format.Line.Visible = msoFalse (i recorded it but it will remove the chart)
        End With
    End With
end sub

此外，通过将此代码添加到我的循环中，我的excel文件将自动关闭而不保存，因此我希望可以使用另一种方法。