Objet Border (Excel)

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

Remarques

La plupart des objets à bordures (à l’exception des objets Range et Style ) ont une bordure qui est traitée comme une entité unique, 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 interlockées ; autrement dit, la modification d’une propriété peut provoquer des modifications dans une autre. Dans la plupart des cas, les modifications induites rendent la bordure visible (ce qui peut ou non être souhaitable). Toutefois, d’autres résultats (plus inattendus) sont possibles.

Voici un exemple d’interlocking avec des résultats inattendus. Dans cet exemple, si vous définissez la propriété Weight d’une bordure sur xlThick, la propriété LineStyle devient xlSolid, même si elle a déjà été 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 renvoyé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

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.