Propriedade Shape.Tags (PowerPoint)
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 Shape .
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
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.