MergeArea プロパティ
Office web コンポーネント Visual Basic リファレンス |
MergeArea プロパティ
指定された範囲の部分を含む結合した範囲を表す Range オブジェクトを返します。範囲には、1 つまたは複数のセルが含まれます。範囲に結合セルが入っていない場合は、未変更のまま返されます。値の取得のみ可能です。
expression.MergeArea
*expression * 必ず指定します。Range オブジェクトを表すオブジェクト式を指定します。
使用例
次の使用例は、Sheet1 の B2:C5 の範囲から結合セルを作成し、結合セルの周りに赤い太線の外枠を設定します。
Sub Merge_Cells()
Dim ssConstants
Dim shtCurrent
Set ssConstants = Spreadsheet1.Constants
Set shtCurrent = Spreadsheet1.Worksheets("Sheet1")
' セル B2:C5 を結合します。
shtCurrent.Range("B2:C5").Merge
' 結合セルの罫線の色を設定します。
shtCurrent.Range("B2").MergeArea.Borders.Color = "Red"
' 結合セルの罫線の太さを設定します。
shtCurrent.Range("B2").MergeArea.Borders.Weight = ssConstants.owcLineWeightThick
End Sub