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.
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.
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
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.