파워 포인트의 이상한 버그

슬라이드에 "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"메시지가) 작동하지 않습니다

2010-06-05 user310291

어쩌면 그것은 당신을 위해 일하지만 내 ppt에서 이벤트를 트리거하지 않습니다. – user310291

글쎄, 미안 해요 :) 그냥 그림을 클릭 할 때 메모를 보여주고 싶습니다. 놀랄 일이 아닙니다. – user310291

이 방법을 어떻게 실행합니까? 클릭 이벤트를 통해 트리거가 실행됩니까? 두 번째 방법이 실행되는지 확인하기 위해 중단 점을 설정하려고 시도 했습니까? – froeschli

그것은 당신이에서 호출하는 방법에 따라 달라집니다

다른 하위 루틴 - 당신은 모양으로 보내야합니다. 마찬가지로 : 당신이 Shape 객체에 보낼 것으로 예상되기 때문에

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

당신은 test 독립형 실행할 수 없습니다. 그러나 귀하의 oShape 객체가 귀하의 test 루틴에서 사용되고 있지 않은 것으로 보는 것이 좋습니다.

2010-06-05 16:52:57

사진을 클릭하면 모양이 전송되지만 여전히 작동하지 않습니다. – user310291

답변