Método BorderArtFormat.Delete (Publisher)

Elimina el objeto especificado.

Sintaxis

expresión. Borrar

expresión Variable que representa un objeto BorderArtFormat .

Observaciones

Si el objeto especificado no existe, se produce un error en tiempo de ejecución.

Ejemplo

En el ejemplo siguiente se comprueba si las formas incluidas en las páginas de la publicación activa tienen bordes decorativos. En caso afirmativo, se eliminan.

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

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.