通过

PowerPoint) (Presentation.Tags 属性

  • 项目

返回一个代表指定对象的标签 标记 对象。 此为只读属性。

语法

expression。 Tags

表达 一个代表 Presentation 对象的变量。

返回值

标记

示例

注意

[!注释] 在本例中，标签值是以大写形式添加和保存在文本中的。 因此，应使用大写形式的文本对标签值进行测试，如第二个例子所示。

以下示例向当前演示文稿的第一张幻灯片中添加名为"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”的标记，则本示例添加值为“Unknown”的此标记。

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

另请参阅

演示文稿对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。