BorderArtFormat.Set, méthode (Publisher)

Définit le type de bordure spéciale appliquée à la forme spécifiée.

Syntaxe

expression. Set (BorderArtName)

expression Variable qui représente un objet BorderArtFormat .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
BorderArtName	Obligatoire	Variant	Nom du type de bordure spéciale appliquée à la forme spécifiée.

Remarques

Vous pouvez également définir le type de BorderArt appliqué à une forme à l’aide de la propriété Name .

Exemple

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

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.