Visual Basic 6中的Excel-如何创建具有平滑线条的图表？

在Excel 2016中，在（右键单击图表上的线条）>格式化数据系列>平滑线条下有一个选项，可使二维折线图上的线条平滑。通过Visual Basic 6创建Excel图表时，是否有任何方法启用此选项

此链接记录了Visual Basic for Applications中的选项，但我没有找到Visual Basic 6的任何内容：

以下是我在Visual Basic 6中创建图表的代码：

Dim xlApp As excel.Application
Set xlApp = New excel.Application
Dim xlWkb As excel.Workbook
Set xlWkb = xlApp.Workbooks.Open("D:\Documents\Book1.xlsx")
Dim xlSht As excel.Worksheet
Set xlSht = xlWkb.Worksheets(1)
Dim xlChart As excel.Chart
Set xlChart = xlWkb.Charts.Add
xlChart.ChartType = xlLine
xlChart.SetSourceData xlSht.Range("A1:B5"), xlColumns
xlChart.Visible = xlSheetVisible
xlChart.Legend.Clear
xlChart.ChartArea.Font.Size = 15
xlChart.ChartArea.Font.Color = vbRed
xlChart.ChartArea.Select
xlChart.ChartArea.Copy
Image1.Picture = Clipboard.GetData(vbCFBitmap) ' Image1 is an image control already placed on the Form.

这是图表上每个系列公开的属性（

.Smooth

），因此您需要循环它们并分配，例如

Dim xlChart As Excel.Chart
Set xlChart = xlWkb.Charts.Add

With xlChart
    .ChartType = xlLine
    .SetSourceData xlSht.Range("A1:B5"), xlColumns
    .Visible = xlSheetVisible
    .Legend.Clear
    .ChartArea.Font.Size = 15
    .ChartArea.Font.Color = vbRed

    Dim i As Long
    For i = 1 To .FullSeriesCollection.Count
        .FullSeriesCollection(i).Smooth = True  '// <= 
    Next

    .ChartArea.Select
    .ChartArea.Copy
End With

以Excel.Chart格式显示图表
设置xlChart=xlWkb.Charts.Add
使用xlChart
.ChartType=xlLine
.SetSourceData xlSht.范围（“A1:B5”），xl列
.Visible=xl可见
.Legend.Clear
.ChartArea.Font.Size=15
.ChartArea.Font.Color=vbRed
我想我会坚持多久
对于i=1到.FullSeriesCollection.Count
.FullSeriesCollection（i）.平滑=真'//