Powerpoint vba上的奇怪錯誤

Question

我在幻燈片上有一個「mynote」文本框。如果我執行：

Sub test() 

      If ActiveWindow.Selection.SlideRange.Shapes("mynote").Visible Then 
       MsgBox "ok" 
      End If 
end sub 

它的工作原理。

，但如果我附上一個形狀與本宏：

Sub test(oShape As Shape) 

      If ActiveWindow.Selection.SlideRange.Shapes("mynote").Visible Then 
       MsgBox "ok" 
      End If 
end sub 

它不工作（沒有錯誤信息，沒有「OK」消息）

Answer 1

這將取決於你如何從調用它另一個子程序 - 你必須發送一個形狀。像：

Sub testYourTest() 
    Dim sh As Shape 
    Set sh = ActivePresentation.Slides(4).Shapes(1) 
    test sh 
End Sub 

，因爲它期待您在Shape對象發送您不能運行test獨立。但是看到您的oShape對象沒有被用在您的test例程中，那麼您可以將其刪除。