Propriedade ShapeRange.Tags (PowerPoint)

  • Artigo

Retorna um objeto Tags que representa as marcas do objeto especificado. Somente leitura.

Sintaxe

expression. Tags

Expressão Uma variável que representa um objeto ShapeRange .

Valor de retorno

Marcas

Exemplo

Observação

[!OBSERVAçãO] Os valores das marcas são adicionados e armazenados em texto, em maiúsculas. Você deve realizar testes com os valores das marcas utilizando texto em maiúsculas, conforme mostrado no segundo exemplo.

Este exemplo adiciona uma marca denominada "REGION" e outra marca denominada "PRIORITY" ao slide um da apresentação ativa.

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

Este exemplo faz uma busca das marcas em cada slide da apresentação ativa. Se houver uma marca denominada "PRIORITY", uma caixa de mensagem exibirá o valor da marca. Caso o objeto não possua uma marca denominada "PRIORITY", o exemplo irá adicionar essa marca com o valor "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

Confira também

Objeto ShapeRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.