NamedRange.BorderAround メソッド
NamedRange コントロールに境界線を追加し、その新しい境界線に対して Color、LineStyle、および Weight の各プロパティを設定します。
名前空間: Microsoft.Office.Tools.Excel
アセンブリ: Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll 内)
構文
'宣言
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
)
パラメーター
- LineStyle
型 : System.Object
境界線のスタイルです。次のいずれかの XlLineStyle 値です。
xlContinuous
xlDash
xlDashDot
xlDashDotDot
xlDot
xlDouble
xlSlantDashDot
xlLineStyleNone
- Weight
型 : Microsoft.Office.Interop.Excel.XlBorderWeight
境界線の太さです。次のいずれかの XlBorderWeight 定数です。
xlHairline
xlMedium
xlThick
xlThin
- ColorIndex
型 : Microsoft.Office.Interop.Excel.XlColorIndex
現在のカラー パレットを指すインデックス、または XlColorIndex 定数で表した境界線の色です。次のどちらかの定数 XlColorIndex です。
xlColorIndexAutomatic
xlColorIndexNone
- Color
型 : System.Object
RGB 値で表した境界線の色です。
戻り値
型 : System.Object
解説
ColorIndex と Color はいずれか一方のみを必ず指定する必要があります。両方指定することはできません。
LineStyle と Weight はいずれか一方のみを指定できます。両方指定することはできません。いずれの引数も指定しなかった場合、Microsoft Office Excel は、既定の線のスタイルおよび太さを使用します。
このメソッドは、範囲全体を外枠で囲みますが、塗りつぶしません。すべてのセルの境界線を設定するには、Borders コレクションの Color、LineStyle、および Weight プロパティを設定する必要があります。境界線を消去するには、範囲内のすべてのセルについて、LineStyle プロパティを xlLineStyleNone に設定する必要があります。
省略可能なパラメーター
省略可能なパラメーターについては、「Office ソリューションの省略可能なパラメーター」を参照してください。
例
NamedRange1 という名前の NamedRange コントロールの書式設定および表示特性を設定するためのコード例を次に示します。この例では、BorderAround メソッドを使用して NamedRange1 の周囲に太い境界線を描画します。
この例は、ドキュメント レベルのカスタマイズ用に作成されています。
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();
}
}
.NET Framework セキュリティ
- 直前の呼び出し元に対する完全な信頼。このメンバーは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。