Objeto BorderArtFormat (Publisher)

Representa el formato del borde decorativo aplicado a la forma especificada.

Comentarios

Los bordes decorativos son bordes de imágenes que se pueden aplicar a cuadros de texto, marcos de imágenes o rectángulos.

Utilice la propiedad BorderArt de una forma para devolver un objeto BorderArtFormat.

Utilice el método Set para especificar el tipo de borde decorativo que desea aplicar a una imagen.

También puede utilizar la propiedad Name para especificar el tipo de borde decorativo que desea aplicar a una imagen.

Utilice el método Delete para quitar el objeto BorderArt de una imagen.

Ejemplo:

En el siguiente ejemplo se devuelve el borde decorativo de la primera forma que contiene la primera página de la publicación activa y se muestra su nombre en un cuadro de mensaje.

Dim bdaTemp As BorderArtFormat 
 
Set bdaTemp = ActiveDocument.Pages(1).Shapes(1).BorderArt 
MsgBox "BorderArt name is: " &bdaTemp.Name

En el siguiente ejemplo se comprueba si las formas incluidas en las páginas del documento activo tienen bordes decorativos. A continuación, los bordes decorativos que se encuentren se establecen en el mismo tipo.

Sub SetBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Set(strBorderArtName) 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

En el ejemplo siguiente se establece todo el elemento BorderArt de un documento en el mismo tipo mediante la propiedad Name .

Sub SetBorderArtByName() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Name = strBorderArtName 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

En el siguiente ejemplo se comprueba si las formas incluidas en las páginas del documento activo tienen bordes decorativos. Si hay un borde, se elimina.

Sub DeleteBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Delete 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

Métodos

• Delete
• RevertToDefaultWeight
• RevertToOriginalColor
• Conjunto

Propiedades

• Application
• Color
• Exists
• Name
• Parent
• StretchPictures
• Weight

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