コレクションからオブジェクトを返す

コレクションから 1 つのオブジェクトを取得するには、 Item メソッドを使用します。 次の例では、 firstPres 変数をプレゼンテーションを表す Presentation オブジェクトに、プレゼンテーション 1 を表す Presentation オブジェクトに設定します。

Set firstPres = Presentations.Item(1)

Item メソッドは、ほとんどのコレクションで既定のメソッドとなっているため、 Item の記述を省略することで、同じステートメントをより簡潔に記述できます。

Set firstPres = Presentations(1)

特定のコレクションの詳細については、そのコレクションのヘルプ トピックまたは Item メソッドを参照してください。

名前付きオブジェクト

通常は Item メソッドを使用して整数値を指定できますが、オブジェクトを名前で返す方が便利な場合があります。 多くのオブジェクトは、作成時に自動的に生成される名前を指定します。 たとえば、最初に作成したスライドには"Slide1" という名前が自動的に付けられます。最初に作成する 2 つの図形が四角形と楕円の場合、既定の名前は "Rectangle 1" と "Oval 2" になります。 後で参照しやすくするために、オブジェクトにわかりやすい名前を付ける場合があります。 Most often, this is done by setting the object's Name property. 次の使用例は、スライドが追加されるときに意味のある名前を設定します。 その後、インデックス番号の代わりに名前を使用して、スライドを参照できます。

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

定義済みのインデックス値

Some collections have predefined index values you can use to return single objects. それぞれの定義されているインデックス値は、定数で表されます。 たとえば、1 つのテキスト スタイルを取得するには、TextStyles コレクションの Item メソッドで PpTextStyleType 定数を指定します。

次の例は、作業中のプレゼンテーションのスライドに本体領域の余白を設定します。

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。