如何用vba设置折线图的数据系列的线条为平滑线？

如下图所示

当excel图表是折线图时，它的系列的线条格式中可以设置是否将折线图显示为平滑线

在vba中可以直接通过设置图表系列对象Series的Smooth属性为True将具体的某个系列的线条设置为平滑线。

代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    Dim oChartObject As ChartObject
    Set oChartObject = oWK.ChartObjects(1)
    Dim oChart As Chart
    Dim oSeries As Series
    Set oChart = oChartObject.Chart
    With oChart
        Set oSeries = .SeriesCollection("同比")
        With oSeries
            '显示为平滑线
            .Smooth = True
        End With
    End With
End Sub