Weird bug on powerpoint vba

Posted by asksuperuser on Stack Overflow See other posts from Stack Overflow or by asksuperuser
Published on 2010-06-05T14:05:42Z Indexed on 2010/06/05 14:12 UTC
Read the original article Hit count: 222

Filed under:
|

I have a "mynote" textbox on a slide. If I execute:

Sub test()

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

It works.

But If I attach a shape with this macro:

Sub test(oShape As Shape)

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

It doesn't work (no error message, no "ok" message)

© Stack Overflow or respective owner

Related posts about vba

Related posts about powerpoint