NamedRange.BorderAround, méthode

Ajoute une bordure à un contrôle NamedRange et affecte la nouvelle bordure aux propriétés Color, LineStyle et Weight.

Espace de noms :  Microsoft.Office.Tools.Excel
Assembly :  Microsoft.Office.Tools.Excel (dans Microsoft.Office.Tools.Excel.dll)

Syntaxe

'Déclaration
Function BorderAround ( _
    LineStyle As Object, _
    Weight As XlBorderWeight, _
    ColorIndex As XlColorIndex, _
    Color As Object _
) As Object

Object BorderAround(
    Object LineStyle,
    XlBorderWeight Weight,
    XlColorIndex ColorIndex,
    Object Color
)

Paramètres

• LineStyle
  Type : System.Object
  Style de ligne de la bordure.Il peut s'agir de l'une des valeurs XlLineStyle suivantes :
  xlContinuous
  xlDash
  xlDashDot
  xlDashDotDot
  xlDot
  xlDouble
  xlSlantDashDot
  xlLineStyleNone

• Weight
  Type : Microsoft.Office.Interop.Excel.XlBorderWeight
  Épaisseur de la bordure.Il peut s'agir de l'une des constantes XlBorderWeight suivantes :
  xlHairline
  xlMedium
  xlThick
  xlThin

• ColorIndex
  Type : Microsoft.Office.Interop.Excel.XlColorIndex
  Couleur de la bordure, en tant qu'index dans la palette de couleurs actuelle ou en tant que constante XlColorIndex.Il peut s'agir de l'une des constantes XlColorIndex suivantes :
  xlColorIndexAutomatic
  xlColorIndexNone

• Color
  Type : System.Object
  Couleur de la bordure, en tant que valeur RVB.

Valeur de retour

Type : System.Object

Notes

Vous devez spécifier ColorIndex ou Color, mais pas les deux.

Vous pouvez spécifier LineStyle ou Weight, mais pas les deux. Si vous ne spécifiez aucun des deux arguments, Microsoft Office Excel utilise l'épaisseur et le style de ligne par défaut.

Cette méthode trace le contour de la plage entière sans la remplir. Pour définir les bordures de toutes les cellules, vous devez définir les propriétés Color, LineStyle et Weight pour la collection Borders. Pour effacer la bordure, vous devez affecter xlLineStyleNone à la propriété LineStyle pour toutes les cellules de la plage.

Paramètres optionnels

Pour plus d'informations sur les paramètres optionnels, consultez Paramètres optionnels dans les solutions Office.

Exemples

L'exemple de code suivant illustre la définition de diverses caractéristiques de mise en forme et d'affichage d'un contrôle NamedRange appelé NamedRange1. Cet exemple utilise en particulier la méthode BorderAround pour dessiner une bordure épaisse autour de NamedRange1.

Cet exemple illustre une personnalisation au niveau du document.

    Private Sub SetRangeFormats()
        Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
            = Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
            "namedRange1")

        namedRange1.NoteText("This is a Formatting test", , )
        namedRange1.Value2 = "Martha"
        namedRange1.Font.Name = "Verdana"
        namedRange1.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
        namedRange1.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
        namedRange1.BorderAround(, Excel.XlBorderWeight.xlThick, _
            Excel.XlColorIndex.xlColorIndexAutomatic, )
        namedRange1.AutoFormat( _
            Excel.XlRangeAutoFormat.xlRangeAutoFormat3DEffects1, _
            True, False, True, False, True, True)

        If MessageBox.Show("Clear the formatting and notes?", _
            "Test", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            namedRange1.ClearFormats()
            namedRange1.ClearNotes()
        End If
    End Sub

private void SetRangeFormats()
{
    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A5"],
        "namedRange1");

    namedRange1.NoteText("This is a Formatting test");
    namedRange1.Value2 = "Martha";
    namedRange1.Font.Name = "Verdana";
    namedRange1.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter;
    namedRange1.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
    namedRange1.BorderAround(missing, Excel.XlBorderWeight.xlThick, 
        Excel.XlColorIndex.xlColorIndexAutomatic);
    namedRange1.AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormat3DEffects1,
        true, false, true, false, true, true);

    if (MessageBox.Show("Clear the formatting and notes?", "Test",
        MessageBoxButtons.YesNo) == DialogResult.Yes)
    {
        namedRange1.ClearFormats();
        namedRange1.ClearNotes();
    }
}

Sécurité .NET Framework

• Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

NamedRange Interface

Microsoft.Office.Tools.Excel, espace de noms