Presentationオブジェクト

Presentationオブジェクトは、1つのプレゼンテーション、つまりパワーポイントのファイル１つを指すと考えれば良いでしょう。

次のように、ActivePresentaionで現在開いているプレゼンテーションを取得することができます。

    Dim p As Presentation
    Set p = ActivePresentation

現在のプレゼンテーションの情報を得る

Public Sub PrintPresentationInfo()

    Dim p As Presentation
    Set p = ActivePresentation

    dp "FullName=", p.FullName
    dp "Name=", p.Name
    dp "Path=", p.Path
    dp "ReadOnly=", p.ReadOnly
    dp "Slides.Count=", p.Slides.Count
    dp "TemplateName=", p.TemplateName


'PrintPresentationInfo
'FullName=     C:\Users\さ\Desktop\IT\powerpoint\新規 Microsoft PowerPoint プレゼンテーション.pptm
'Name=         新規 Microsoft PowerPoint プレゼンテーション.pptm
'Path=         C:\Users\さ\Desktop\IT\powerpoint
'ReadOnly=     0
'Slides.Count= 43
'TemplateName= Office テーマ

End Sub

※ dpは「Debub.Print」のラッパーです。詳しくは、「このサイトで使用している共通関数のご紹介」をご覧ください