如何使excel VBA代碼適應PPT VBA？

我想要做的是製作VBA代碼，它將隱藏和顯示圖表上的單個系列。我知道如何在Excel中編寫VBA代碼，但不知道要在PPT VBA中重寫相同的代碼。如何使excel VBA代碼適應PPT VBA？

我有這樣的代碼在Excel VBA：

Sub FirstSer() 
Dim cht As Chart 
Dim ser As Series 

'Retrieve our chart and seriescollection objects' 
Set cht = Worksheets("Sheet1").ChartObjects("Chart 1").Chart 
Set ser = cht.SeriesCollection(1) 

'Set the first series line to be hidden' 

With ser.Format.Line 
    If .Visible = msoTrue Then 
     .Visible = msoFalse 
     ser.Name = vbNullString 
    Else 
     .Visible = msoTrue 
     ser.Name = "First" 
    End If 
End With 
End Sub

我怎麼能寫在PowerPoint VBA相同的代碼？我試圖在類似的帖子中找到解決方案，但是每個帖子都考慮到了特定的代碼，這些代碼很難適應我的代碼，因爲我是VBA中的新手。

來源

2017-06-26 Luka

更換的Excel圖表的具體參考：

Set cht = Worksheets("Sheet1").ChartObjects("Chart 1").Chart

有了一個參考進行到合適的對象在簡報介紹是這樣的：

Set cht = ActivePresentation.Slides(1).Shapes(1).Chart

的其餘的代碼可以保持原樣。

附註： VBA是VBA - PowerPoint VBA和Excel VBA沒有區別。當然，在Excel中，您可以得到一些Excel特定的對象，但在一個應用程序或另一個應用程序中使用VBA沒有真正的區別。例如，您可以輕鬆地使用它從Excel文件中生成完整的演示文稿。

來源

2017-06-26 11:02:27

如何使excel VBA代碼適應PPT VBA？

回答

相關問題