VBA錯誤 「預期函數或變量」 試圖設置一個PowerPoint幻燈片時

Question

我有下面的代碼 -

Option Explicit 

Sub main() 

Dim oPPTApp As PowerPoint.Application 
Dim oPPTObj As Object 
Dim oPPTFile As PowerPoint.Presentation 
Dim oPPTShape As PowerPoint.Shape 
Dim oPPTSlide As PowerPoint.Slide 
Dim oGraph As Graph.Chart 
Dim oAxis As Graph.Axis 
Dim SlideNum As Integer 
Dim strPresPath As String, strNewPresPath As String 

strPresPath = "Location.ppt" 
strNewPresPath = "Destination.ppt" 

'instantiate the powerpoint application and make it visible 
Set oPPTObj = CreateObject("PowerPoint.Application") 
oPPTObj.Visible = msoCTrue 

Set oPPTFile = oPPTObj.Presentations.Open(strPresPath) 
SlideNum = 1 

Set oPPTSlide = oPPTFile.Slides(SlideNum).Select 
Set oPPTShape = oPPTSlide.Add(1, ppLayoutBlank) 

oPPTSlide.Shapes.AddTextbox msoTextOrientationHorizontal, 10, 20, 300, 5 

With oPPTSlide.Shapes(1).TextFrame.TextRange 
    .text = "ALL BSE" 
    .Font.Color = vbWhite 
    .Font.Underline = msoFalse 
End With 

End Sub 

我得到一個錯誤

預期的函數或變量

在以下行：

Set oPPTSlide = oPPTFile.Slides(SlideNum).Select 

任何幫助，將不勝感激。

Answer 1

按照上面我的意見，你不能Set和Select在同一行（也有幾乎從來沒有任何理由使用Select）。嘗試Set oPPTSlide = oPPTFile.Slides(SlideNum)

然而，一些「升級」到你的代碼：

直接設置oPPTShape與新創建Shapes有：

Set oPPTShape = oPPTSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 20, 300, 5) 

事後，易修改oPPTShape性能，使用With聲明如下：

With oPPTShape.TextFrame.TextRange 
    .text = "ALL BSE" 
    .Font.Color = vbWhite 
    .Font.Underline = msoFalse 
End With 

Answer 2

應該是...

Set oPPTSlide = oPPTFile.Slides(SlideNum)