プレゼンテーションドキュメントを読み取り専用アクセス用に開く

[アーティクル]
01/21/2025

このトピックでは、Open XML SDK for Office のクラスを使用して、読み取り専用アクセス用のプレゼンテーションドキュメントをプログラムで開く方法について説明します。

ファイルを読み取り専用で開く方法

プレゼンテーションドキュメントを開いてスライドを参照したいときがあります。場合によっては、スライドから情報を取得したり、スライドをスライドライブラリにコピーしたり、スライドのタイトルをリストしたりすることもあります。しかも、それらの操作を、ドキュメントの内容を変更せずに実行したいときがあります。そのようなときは、ドキュメントを読み取り専用で開きます。このハウツートピックでは、プログラムによって、プレゼンテーションドキュメントを読み取り専用で開く方法についていくつか説明します。

PresentationDocument クラスのインスタンスを作成する

Open XML SDK では、 PresentationDocument クラスはプレゼンテーションドキュメントパッケージを表します。プレゼンテーションドキュメントを操作するには、まず PresentationDocument クラスのインスタンスを作成してから、そのインスタンスを操作します。ドキュメントからクラスインスタンスを作成するには、 Open メソッドのいずれかを呼び出します。いくつかの Open メソッドが提供されていて、シグネチャがそれぞれ異なります。次の表に、パッケージを開くために使用できる Open メソッドのオーバーロードのサブセットを示します。

名前	説明
Open	指定したファイルから `PresentationDocument` クラスの新しいインスタンスを作成します。
Open	I/O ストリームから `PresentationDocument` クラスの新しいインスタンスを作成します。
Open	指定したパッケージから `PresentationDocument` クラスの新しいインスタンスを作成します。

前の表には、ブール値を 2 番目のパラメーターとして受け取り、ドキュメントが編集可能かどうかを指定する 2 つの Open メソッドが含まれています。読み取り専用アクセス用にドキュメントを開くには、このパラメーターに false 値を指定します。

たとえば、次の using ステートメントに示すように、プレゼンテーションファイルを読み取り専用として開き、PresentationDocument オブジェクトに割り当てることができます。このコードでは、 presentationFile パラメーターは、ドキュメントを開くファイルのパスを表す文字列です。

C#
Visual Basic

    using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFilePath, false))
    {
        // Insert other code here.
    }

    Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationFilePath, False)
        ' Insert other code here.
    End Using

上の表の Open メソッドの 2 番目のオーバーロードを使用して、I/O ストリームに基づいて PresentationDocument クラスのインスタンスを作成することもできます。ストリーム I/O を使用するMicrosoft SharePoint Foundation 2010 アプリケーションがあり、Open XML SDK を使用してドキュメントを操作する場合は、この方法を使用できます。次のコードセグメントでは、ストリームに基づいてドキュメントを開きます。

C#
Visual Basic

    Stream stream = File.Open(strDoc, FileMode.Open);
    using (PresentationDocument presentationDocument = PresentationDocument.Open(stream, false)) 
    {
        // Place other code here.
    }

    Dim stream As Stream = File.Open(strDoc, FileMode.Open)
    Using presentationDocument As PresentationDocument = PresentationDocument.Open(stream, False)
        ' Other code goes here.
    End Using

.NET Framework クラスライブラリの System.IO.Packaging 名前空間で Open XML サポートを使用するアプリケーションがあり、Open XML SDK を使用してパッケージの読み取り専用を操作するとします。 Open XML SDK には、唯一のパラメーターとして Package を受け入れるメソッドオーバーロードが含まれています。ドキュメントを編集用として開く必要があるかどうかを指定するブール値パラメーターはありません。推奨される方法は、 PresentationDocument クラスのインスタンスを作成する前に、パッケージを読み取り専用として開く方法です。この操作を次のコードセグメントに示します。

C#
Visual Basic

    Package presentationPackage = Package.Open(filepath, FileMode.Open, FileAccess.Read);
    using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationPackage))
    {
        // Other code goes here.
    }

    Dim presentationPackage As Package = Package.Open(filepath, FileMode.Open, FileAccess.Read)
    Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationPackage)
        ' Other code goes here.
    End Using

プレゼンテーションドキュメントの基本構造

PresentationMLドキュメントの基本的なドキュメント構造は、多数のパーツで構成され、その中にはプレゼンテーション定義を含むメインパーツがあります。 ISO/IEC 29500 仕様の次のテキストでは、PresentationML パッケージの全体的な形式について説明します。

PresentationML パッケージのメイン部分は、プレゼンテーションルート要素で始まります。この要素にはプレゼンテーションが含まれており、プレゼンテーションは スライド リスト、スライドマスター リスト、ノートマスター リスト、配布資料マスター リストを参照します。スライドリストはプレゼンテーション内のすべてのスライドを参照します。スライドマスターリストはプレゼンテーションで使用されるスライドマスター全体を参照します。ノートマスターにはノートページの書式設定に関する情報が含まれます。配布資料マスターは配布資料がどのように表示されるかを示します。

配布資料とは、聴衆に提供できるように一連のスライドを印刷したものです。

テキストやグラフィックのように、各スライドにはコメントとノートを含めることができ、レイアウトを指定したり、1 つ以上のカスタムプレゼンテーションに組み込んだりできます。コメントは、プレゼンテーションスライドデッキをメンテナンスする人向けの注釈です。ノートは、プレゼンテーションの発表者または参加者向けのリマインダーやメモです。

PresentationMLドキュメントには、アニメーション、オーディオ、ビデオ、スライド間の切り替えなどのその他の機能があります。

PresentationMLドキュメントは、1 つのパーツに 1 つの大きな本文として格納されません。その代わりに、特定のグループの機能を実現する要素が別個のパーツに格納されます。たとえば、ドキュメント内のすべての作成者は 1 つの作成者パーツに格納され、各スライドには独自のパーツがあります。

ISO/IEC 29500: 2016

次の XML コードの例は、267 と 256 という ID で示される 2 つのスライドを含むプレゼンテーションを表します。

    <p:presentation xmlns:p="…" … > 
       <p:sldMasterIdLst>
          <p:sldMasterId
             xmlns:rel="https://…/relationships" rel:id="rId1"/>
       </p:sldMasterIdLst>
       <p:notesMasterIdLst>
          <p:notesMasterId
             xmlns:rel="https://…/relationships" rel:id="rId4"/>
       </p:notesMasterIdLst>
       <p:handoutMasterIdLst>
          <p:handoutMasterId
             xmlns:rel="https://…/relationships" rel:id="rId5"/>
       </p:handoutMasterIdLst>
       <p:sldIdLst>
          <p:sldId id="267"
             xmlns:rel="https://…/relationships" rel:id="rId2"/>
          <p:sldId id="256"
             xmlns:rel="https://…/relationships" rel:id="rId3"/>
       </p:sldIdLst>
           <p:sldSz cx="9144000" cy="6858000"/>
       <p:notesSz cx="6858000" cy="9144000"/>
    </p:presentation>

Open XML SDK を使用すると、PresentationML 要素に対応する厳密に型指定されたクラスを使用して、ドキュメント構造とコンテンツを作成できます。これらのクラスは、名前空間にあります。次の表に、 sld、 sldLayout、 sldMaster、および notesMaster の各要素に対応するクラスのクラス名を示します。

PresentationML 要素	Open XML SDK クラス	説明
`<sld/>`	Slide	プレゼンテーションスライド。 SlidePart のルート要素
`<sldLayout/>`	SlideLayout	スライドレイアウト。 SlideLayoutPart のルート要素
`<sldMaster/>`	SlideMaster	スライドマスター。 SlideMasterPart のルート要素
`<notesMaster/>`	NotesMaster	ノートマスター (または handoutMaster)。 NotesMasterPart のルート要素

サンプルコードの動作のしくみ

サンプルコードでは、読み取り専用アクセス用の using ステートメントでプレゼンテーションドキュメントを開いた後、 PresentationPartをインスタンス化し、スライドリストを開きます。次に、1 番目のスライドのリレーションシップ ID を取得します。

C#
Visual Basic

// Get the relationship ID of the first slide.
PresentationPart? part = ppt.PresentationPart;
OpenXmlElementList slideIds = part?.Presentation?.SlideIdList?.ChildElements ?? default;

// If there are no slide IDs then there are no slides.
if (slideIds.Count == 0)
{
    sldText = "";
    return;
}

string? relId = (slideIds[index] as SlideId)?.RelationshipId;

if (relId is null)
{
    sldText = "";
    return;
}

' Get the relationship ID of the first slide.
Dim part As PresentationPart = ppt.PresentationPart
Dim slideIds As OpenXmlElementList = If(part?.Presentation?.SlideIdList?.ChildElements, New OpenXmlElementList())

' If there are no slide IDs then there are no slides.
If slideIds.Count = 0 Then
    sldText = ""
    Return
End If

Dim relId As String = TryCast(slideIds(index), SlideId)?.RelationshipId

If relId Is Nothing Then
    sldText = ""
    Return
End If

リレーションシップ ID relIdから、スライドパーツを取得し、次に、 StringBuilderを使用してテキスト文字列を作成することで、スライドの内部テキストを取得します。

C#
Visual Basic

// Get the slide part from the relationship ID.
SlidePart slide = (SlidePart)part!.GetPartById(relId);

// Build a StringBuilder object.
StringBuilder paragraphText = new StringBuilder();

// Get the inner text of the slide:
IEnumerable<A.Text> texts = slide.Slide.Descendants<A.Text>();
foreach (A.Text text in texts)
{
    paragraphText.Append(text.Text);
}
sldText = paragraphText.ToString();

' Get the slide part from the relationship ID.
Dim slide As SlidePart = CType(part.GetPartById(relId), SlidePart)

' Build a StringBuilder object.
Dim paragraphText As New StringBuilder()

' Get the inner text of the slide:
Dim texts As IEnumerable(Of A.Text) = slide.Slide.Descendants(Of A.Text)()
For Each text As A.Text In texts
    paragraphText.Append(text.Text)
Next
sldText = paragraphText.ToString()

GetSlideIdAndText メソッドのout パラメーターであるスライドの内部テキストは、表示するメインメソッドに返されます。

重要

[!重要] この例では、プレゼンテーションファイルのテキストのみを表示します。テキスト以外の図形やグラフィックスなどのパーツは表示されません。

サンプルコード

次の例では、読み取り専用アクセスでプレゼンテーションファイルを開き、指定したインデックスにあるスライドの内部テキストを取得します。メソッドを呼び出すには GetSlideIdAndText プレゼンテーションドキュメントの完全なパスを渡します。また、メソッド自体に値が割り当てられる out パラメーター sldTextを渡すと、その値をメインプログラムに表示できます。たとえば、 GetSlideIdAndText メソッドの次の呼び出しは、引数としてアプリケーションに渡されるインデックスとファイルパスからプレゼンテーションファイル内の内部テキストを取得します。

ヒント

このプログラムで最も予期される例外は、 ArgumentOutOfRangeException 例外です。たとえば、この例外は、2 つのスライドを含むファイルで、スライド番号 4 のテキストを表示しようとするとスローされます。したがって、次の例に示すように、GetSlideIdAndText メソッドを呼び出すときは、try ブロックを使用することをお勧めします。

C#
Visual Basic

try
{
    string file = args[0];
    bool isInt = int.TryParse(args[1], out int i);

    if (isInt)
    {
        GetSlideIdAndText(out string sldText, file, i);
        Console.WriteLine($"The text in slide #{i + 1} is {sldText}");
    }
}
catch(ArgumentOutOfRangeException exp) {
    Console.Error.WriteLine(exp.Message);
}

Try
    Dim file As String = args(0)
    Dim i As Integer
    Dim isInt As Boolean = Integer.TryParse(args(1), i)

    If isInt Then
        Dim sldText As String = String.Empty
        GetSlideIdAndText(sldText, file, i)
        Console.WriteLine($"The text in slide #{i + 1} is {sldText}")
    End If
Catch exp As ArgumentOutOfRangeException
    Console.Error.WriteLine(exp.Message)
End Try

以下は、C# および Visual Basic の完全なコードです。

C#
Visual Basic

static void GetSlideIdAndText(out string sldText, string docName, int index)
{
    using (PresentationDocument ppt = PresentationDocument.Open(docName, false))
    {
        // Get the relationship ID of the first slide.
        PresentationPart? part = ppt.PresentationPart;
        OpenXmlElementList slideIds = part?.Presentation?.SlideIdList?.ChildElements ?? default;

        // If there are no slide IDs then there are no slides.
        if (slideIds.Count == 0)
        {
            sldText = "";
            return;
        }

        string? relId = (slideIds[index] as SlideId)?.RelationshipId;

        if (relId is null)
        {
            sldText = "";
            return;
        }

        // Get the slide part from the relationship ID.
        SlidePart slide = (SlidePart)part!.GetPartById(relId);

        // Build a StringBuilder object.
        StringBuilder paragraphText = new StringBuilder();

        // Get the inner text of the slide:
        IEnumerable<A.Text> texts = slide.Slide.Descendants<A.Text>();
        foreach (A.Text text in texts)
        {
            paragraphText.Append(text.Text);
        }
        sldText = paragraphText.ToString();
    }
}

    Sub GetSlideIdAndText(ByRef sldText As String, docName As String, index As Integer)
        Using ppt As PresentationDocument = PresentationDocument.Open(docName, False)
            ' Get the relationship ID of the first slide.
            Dim part As PresentationPart = ppt.PresentationPart
            Dim slideIds As OpenXmlElementList = If(part?.Presentation?.SlideIdList?.ChildElements, New OpenXmlElementList())

            ' If there are no slide IDs then there are no slides.
            If slideIds.Count = 0 Then
                sldText = ""
                Return
            End If

            Dim relId As String = TryCast(slideIds(index), SlideId)?.RelationshipId

            If relId Is Nothing Then
                sldText = ""
                Return
            End If

            ' Get the slide part from the relationship ID.
            Dim slide As SlidePart = CType(part.GetPartById(relId), SlidePart)

            ' Build a StringBuilder object.
            Dim paragraphText As New StringBuilder()

            ' Get the inner text of the slide:
            Dim texts As IEnumerable(Of A.Text) = slide.Slide.Descendants(Of A.Text)()
            For Each text As A.Text In texts
                paragraphText.Append(text.Text)
            Next
            sldText = paragraphText.ToString()
        End Using
    End Sub
End Module

次の方法で共有

プレゼンテーションドキュメントを読み取り専用アクセス用に開く

ファイルを読み取り専用で開く方法

PresentationDocument クラスのインスタンスを作成する

プレゼンテーションドキュメントの基本構造

サンプルコードの動作のしくみ

サンプルコード

関連項目

その他のリソース

次の方法で共有

プレゼンテーション ドキュメントを読み取り専用アクセス用に開く

ファイルを読み取り専用で開く方法

PresentationDocument クラスのインスタンスを作成する

プレゼンテーション ドキュメントの基本構造

サンプル コードの動作のしくみ

サンプル コード

その他のリソース

プレゼンテーションドキュメントを読み取り専用アクセス用に開く

プレゼンテーションドキュメントの基本構造

サンプルコードの動作のしくみ

サンプルコード