Objeto Tag (Publisher)
Representa uma marca ou uma propriedade personalizada que você pode criar para uma forma, intervalo de formas, página ou publicação. Cada objeto Tag contém o nome de uma propriedade personalizada e um valor para essa propriedade. Objetos Tag são membros das marcas coleção.
Crie uma marca quando você deseja ser capaz de trabalhar seletivamente com membros específicos de uma coleção, com base em um atributo que ainda não esteja representado por uma propriedade interna.
Use o método Tags.Item para retornar um objeto Tag .
Use o método Tags.Add para adicionar um objeto Tag .
Este exemplo preenche todas as formas na primeira página da publicação ativa se a marca da primeira forma tiver um valor Oval.
Sub FormatTaggedShapes()
Dim shp As Shape
With ActiveDocument.Pages(1)
For Each shp In .Shapes
If shp.Tags.Count > 0 Then
If shp.Tags.Item(1).Value = "Oval" Then
shp.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End If
End If
Next
End With
End Sub
Este exemplo adiciona uma marca para todas as formas oval na publicação ativa.
Sub TagShapes()
Dim shp As Shape
With ActiveDocument.Pages(1)
For Each shp In .Shapes
If InStr(1, shp.Name, "Oval") > 0 Then
shp.Tags.Add Name:="Oval", Value:="This is an oval shape."
End If
Next shp
End With
End Sub
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.