Ler em inglês

Compartilhar via


Objeto Tags (Publisher)

Uma coleção de objetos Tag que representam marcas ou propriedades personalizadas aplicadas a uma forma, intervalo de formas, página ou publicação.

Comentários

Use a propriedade Shape.Tags para acessar a coleção Tags .

Use o método Add para adicionar um objeto Tag a uma forma, intervalo de formas, página ou publicação.

A contagem de uso propriedade para determinar se uma forma, intervalo de formas, página ou publicação contém um ou mais objetos de marca.

Exemplo

Este exemplo adiciona uma marca a cada elipse na primeira página da publicação ativa.

Sub AddNewTag() 
 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:="Shape", Value:="Oval" 
 End If 
 Next shp 
 End With 
End Sub

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(1).Value = "Oval" Then 
 shp.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 End If 
 End If 
 Next shp 
 End With 
End Sub

Métodos

Propriedades

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.