共用方式為

PowerPoint) (ShapeRange.Tags 屬性

  • 發行項

會傳回代表指定之物件的標記的 Tags 物件。 唯讀。

語法

expression。 Tags

表達 代表 ShapeRange 物件的 變數。

傳回值

標記

範例

注意事項

[!注意事項] 標記值會以大寫文字加入並儲存。 您應該使用大寫文字測試標記值，如第二個範例中所示。

此範例會將名為 "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

本範例會在使用中簡報的每一張投影片中搜尋標記。 如果沒有名為 "PRIORITY" 的標記，訊息方塊便會顯示標記值。 如果物件不包含名為 "PRIORITY" 的標記，該範例會使用「未知」當成標記值加入此標記。

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

另請參閱

ShapeRange 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。