當投影片切換時 (VBA)

Posted on 2013 年 02 月 08 日 by cowman.chiang

Sub OnSlideShowPageChange()
    MsgBox ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber).Shapes.Title.TextFrame.TextRange.Text
End Sub

Sub OnSlideShowPageChange()

MsgBox ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber).Shapes.Title.TextFrame.TextRange.Text

End Sub

This entry was posted in Office, PowerPoint. Bookmark the permalink.

當投影片切換時 (VBA)

Categories