NamedRange.BorderAround, méthode

Article
01/06/2014

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

Partager via