Partager via

Objet BorderArtFormat (Publisher)

Représente le type de mise en forme des bordures spéciales appliqué à la forme spécifiée.

Remarques

Les bordures spéciales sont des bordures d’image pouvant être appliquées à des zones de texte, des cadres d’image, ou des rectangles.

Utilisez la propriété BorderArt d'une forme pour renvoyer un objet BorderArtFormat.

Utilisez la méthode Set pour spécifier le type de bordures spéciales à appliquer à une image.

Vous pouvez également utiliser la propriété Name pour spécifier le type de bordure spéciale à appliquer à une image.

Remarque

Étant donné que Name est la propriété par défaut des objets BorderArt et BorderArtFormat , vous n’avez pas besoin de l’indiquer explicitement lors de la définition du type BorderArt. L’instruction Shape.BorderArtFormat = Document.BorderArts(1) est équivalente à Shape.BorderArtFormat.Name = Document.BorderArts(1).Name.

Utilisez la méthode Delete pour supprimer des bordures spéciales d'une image.

Exemple

L'exemple suivant renvoie les bordures spéciales de la première forme sur la première page de la composition active, et affiche le nom des bordures spéciales dans une boîte de message.

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

L'exemple suivant vérifie l'existence d'une bordure spéciale sur chaque forme de chaque page du document actif. Le même type est appliqué à toutes les bordures spéciales identifiées.

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

L’exemple suivant définit tous les borderArt d’un document sur le même type à l’aide de la propriété 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

L'exemple suivant vérifie l'existence de bordures spéciales sur chaque forme de chaque page du document actif. S'il en existe, elles sont supprimées.

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éthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

  • Last updated on