Share via


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