Objet Border (Excel)

Article
04/07/2023

Cet objet représente la bordure d'un objet.

Remarques

La plupart des objets bordés (tous à l’exception des objets Range et Style ) ont une bordure qui est traitée comme une seule entité, quel que soit le nombre de côtés qu’elle possède. La bordure entière doit être renvoyée en un tout.

Utilisez la propriété Border , par exemple à partir d’un objet TrendLine , pour renvoyer l’objet Border pour ce type d’objet.

Notez que les propriétés visuelles d’un objet Border sont verrouillées ; autrement dit, la modification d’une propriété peut induire des modifications dans une autre. Dans la plupart des cas, les modifications induites servent à rendre la bordure visible (ce qui peut ou non être souhaitable). Toutefois, d’autres résultats (plus inattendus) sont possibles.

Voici un exemple de verrouillage avec des résultats inattendus. Dans cet exemple, la définition de la propriété Weight d’une bordure sur xlThick entraîne la propriété LineStyle à devenir xlSolid, bien qu’elle ait précédemment définie sur xlDashDotDot.

   Sub InterlockingExample()
       Dim SomeRange As Range
       Dim SomeBorder As Border
       
       Set MyRange = Selection
       Set SomeBorder = MyRange.Borders(xlDiagonalDown)
       SomeBorder.Color = RGB(255, 0, 0)
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
       Debug.Print "Set SomeBorder.LineStyle = xlDashDotDot"          'Set SomeBorder.LineStyle = xlDashDotDot
       SomeBorder.LineStyle = xlDashDotDot
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 5
       Debug.Print "Set SomeBorder.Weight = xlThick"                  'Set SomeBorder.Weight = xlThick
       SomeBorder.Weight = xlThick
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
   End Sub

Exemple

L'exemple suivant montre comment modifier le type et le style de trait d'une courbe de tendance dans le graphique actif.

With ActiveChart.SeriesCollection(1).Trendlines(1) 
 .Type = xlLinear 
 .Border.LineStyle = xlDash 
End With

Les objets Range et Style ont quatre bordures discrètes (gauche, droite, haut et bas) qui peuvent être retournées individuellement ou en tant que groupe. Utilisez la propriété Borders pour renvoyer la collection Borders, qui contient les quatre bordures et traite les bordures en un tout . L’exemple suivant montre comment ajouter une bordure double à la cellule A1 de la feuille de calcul 1.

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

Utilisez Borders (index), où index identifie la bordure, pour renvoyer un seul objet Border . L’exemple suivant montre comment définir la couleur de la bordure inférieure des cellules A1:G1.

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

Index peut être l’une des constantes XlBordersIndex suivantes : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ou xlInsideVertical.

Propriétés

Voir aussi

Référence du modèle objet Excel

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.

Partager via