Shape.Tags プロパティ (PowerPoint)

  • [アーティクル]

指定したオブジェクトのタグを表す Tags オブジェクトを返します。 読み取り専用です。

構文

式。 Tags

式Shape オブジェクトを表す変数。

戻り値

タグ

例

注:

タグ値が追加され、大文字のテキストで格納されます。 2 番目の例に示すように、大文字のテキストを使用してタグ値に対してテストを実行する必要があります。

次の使用例は、作業中のプレゼンテーションのスライド 1 に "REGION" という名前のタグと "PRIORITY" という名前のタグを追加します。

With Application.ActivePresentation.Slides(1).Tags

    .Add "Region", "East"     'Adds "Region" tag with value "East"

    .Add "Priority", "Low"    'Adds "Priority" tag with value "Low"

End With

次の使用例は、作業中のプレゼンテーションの各スライドでタグを検索します。 "優先度" というタグが見つかった場合、このタグの値がメッセージ ボックスに表示されます。 オブジェクトに "優先度" という名前のタグが付いていない場合、"未設定" というタグを追加します。

For Each s In Application.ActivePresentation.Slides

    With s.Tags

        found = False

        For i = 1 To .Count

          If .Name(i) = "PRIORITY" Then

              found = True

              slNum = .Parent.SlideIndex

              MsgBox "Slide " & slNum & " Priority: " & .Value(i)

          End If

        Next

        If Not found Then

          slNum = .Parent.SlideIndex

          .Add "Priority", "Unknown"

          MsgBox "Slide " & slNum & " Priority tag added: Unknown"

        End If

    End With

Next

関連項目

Shape オブジェクト

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

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