Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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.