Objeto Tags (Publicador)

Colección de objetos Tag que representan etiquetas o propiedades personalizadas aplicadas a una forma, un intervalo de formas, una página o una publicación.

Observaciones

Use la propiedad Shape.Tags para acceder a la colección Tags .

Use el método Add para agregar un objeto Tag a una forma, un intervalo de formas, una página o una publicación.

Utilice el recuento propiedad para determinar si una forma, intervalo de formas, página o publicación contiene uno o más objetos de la etiqueta.

Ejemplo

En este ejemplo se agrega una etiqueta a cada forma elíptica de la primera página de la publicación activa.

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

En este ejemplo se rellena todas las formas en la primera página de la publicación activa si la primera etiqueta de la forma tiene un valor de elipse.

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

• Add
• Elemento

Propiedades

• Application
• Count
• Parent

Vea también

• Referencia del modelo de objetos de Publisher

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.