ExcelWork.info

外枠罫線の設定(BorderAround メソッド)

外枠罫線の設定

罫線の設定には、Borders プロパティを使用しますが、範囲内のすべての罫線に対して設定する必要があるのでコード量が多くなってしまします。
選択したセル範囲の外枠罫線のみを引く場合は、BorderAround メソッドが便利です。


BorderAround メソッド

【書式】

object.BorderAround [ ( LineStyle, Weight, ColorIndex, Color, ThemeColor ) ]


引数・戻り値

  • object  ・・・  対象となる Range オブジェクトを指定します。
  • LineStyle  ・・・  罫線の種類を表す定数(XlLineStyle 列挙型)または、その値を指定します。
    定数 内容
    xlContinuous 1 実線
    xlDashDot 4 一点鎖線
    xlDashDotDot 5 ニ点鎖線
    xlSlantDashDot 13 斜破線
    xlDash -4115 破線
    xlDot -4118 点線
    xlDouble -4119 2 本線
    xlLineStyleNone -4142 線なし

  • Weight  ・・・  罫線の太さを表す定数(XlBorderWeight 列挙)または、その値を指定します。
    定数 内容
    xlMedium -4138 普通
    xlHairline 1 細線 (最も細い罫線)
    xlThin 2 極細
    xlThick 4 太線 (最も太い罫線)

  • ColorIndex  ・・・  カラーパレットの色を表す 1 ~ 56 のパレット番号を指定します。
      ⇒ 色の設定:ColorIndex プロパティ・Colors プロパティ
  • Color  ・・・  色を表す RGB 値を指定します。
      ⇒ 色の設定:Color プロパティ・RGB 関数
  • ThemeColor  ・・・  テーマカラーの基本色を表すMsoThemeColorSchemeindex 列挙型の定数または値(1 ~ 12)を指定します。
      ⇒ 色の設定:ThemeColor プロパティ・TintAndShade プロパティ


BorderAround メソッド 使用例

サンプルVBAソース


実行結果

サンプルVBAソース実行前

実行後