Objet de bordure (Excel)

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

Remarques

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

Utilisez la propriété Border , par exemple celle 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 imbriquées ; autrement dit, la modification d’une propriété peut induire des modifications dans une autre. Dans la plupart des cas, les changements induits servent à rendre la frontière visible (ce qui peut être souhaitable ou non). Cependant, d’autres résultats (plus inattendus) sont possibles.

Voici un exemple d’emboîtement avec des résultats inattendus. Dans cet exemple, la définition de la propriété Weight d’une bordure sur xlThick entraîne la définition de la propriété LineStyle sur xlSolid même si vous l’avez 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 distinctes (gauche, droite, supérieure et inférieure) 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 Bordures (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)

L’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.

  • Last updated on