Поделиться через


Свойство ShapeRange.Tags (PowerPoint)

Возвращает объект Tags , представляющий теги для указанного объекта. Только для чтения.

Синтаксис

выражение. 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, в примере этот тег добавляется со значением 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

См. также

Объект ShapeRange

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.