使用VBA在Powerpoint中創建一個簡單的線條圖

Question

我想創建一個VBA代碼，它只是在第一張PPT表上畫一個簡單的折線圖。

我寫了下面：

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 
'^^^^ 

你的代碼的其餘似乎是正確的，這修正後應該可以正常工作，只要你有在演示文稿中的至少一個幻燈片。