使用VBA在powerpoint中创建一个简单的折线图

Question

我想创建VBA代码，只在第一个powerpoint工作表上绘制一个简单的折线图。

我写了以下内容：

Sub createSampeChart()
    Set myDocument = ActivePresentation.Slides(1)
    myChart = myDocument.Shapes.AddChart.Chart

    With myChart
        .ChartStyle = 4
        .ApplyLayout 4
        .ClearToMatchStyle
        .HasLegend = False
    End With
End Sub

然而，运行它会给我一个438错误。关于我应该调整什么的任何想法？

Answer 1

myChart = myDocument.Shapes.AddChart.Chart

分配对象时使用Set：

 Set myChart = myDocument.Shapes.AddChart.Chart
'^^^^

其他代码似乎是正确的，如果您在演示文稿中至少有一张幻灯片，则在此更正后应该可以正常工作。