境界線の太さを表すXlBorderWeight値を設定または返します。
- 構文
- Borders.Weight
- 引数
- 戻値
定数一覧
XlBorderWeight
名前 | 値 | 説明 |
---|---|---|
xlMedium | -4138 | 普通 |
xlHairline | 1 | 細線(最も細い罫線) |
xlThin | 2 | 極細 |
xlThick | 4 | 太線(最も太い罫線) |
CONST xlMedium = -4138
CONST xlHairline = 1
CONST xlThin = 2
CONST xlThick = 4
プログラム実行例
表を作成
// XlBordersIndex
CONST xlDiagonalDown = 5
CONST xlEdgeLeft = 7
CONST xlEdgeTop = 8
CONST xlEdgeBottom = 9
CONST xlEdgeRight = 10
// XlLineStyle
CONST xlDouble = -4119
CONST xlContinuous = 1
// XlBorderWeight
CONST xlThick = 4
DIM Excel = ExcelBoot()
WITH Excel
.Range("B2:F6").Borders.LineStyle = xlContinuous
.Range("B2:F6").BorderAround(xlContinuous, xlThick)
.Range("F2:F6").Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("B6:F6").Borders(xlEdgeTop).LineStyle = xlDouble
.Range("B2").Borders(xlDiagonalDown).LineStyle = xlContinuous
WITH .Range("B2:B6").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
WITH .Range("B2:F2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- 結果
解説
- 18行目
セル範囲B2:F6に格子の罫線を引きます。.Range("B2:F6").Borders.LineStyle = xlContinuous
- 19行目
セル範囲B2:F6に太線で外枠罫線を引きます。.Range("B2:F6").BorderAround(xlContinuous, xlThick)
- 20行目
セル範囲F2:F6に2本線の左罫線を引きます。.Range("F2:F6").Borders(xlEdgeLeft).LineStyle = xlDouble
- 21行目
セル範囲B6:F6に2本線の上罫線を引きます。.Range("B6:F6").Borders(xlEdgeTop).LineStyle = xlDouble
- 22行目
セルB2に左上から右下の斜線を引きます。.Range("B2").Borders(xlDiagonalDown).LineStyle = xlContinuous
- 23-26行目
セル範囲B2:B6に太線で右罫線を引きます。WITH .Range("B2:B6").Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThick ENDWITH
- 27-30行目
セル範囲B2:F2に太線で下罫線を引きます。WITH .Range("B2:F2").Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThick ENDWITH
この記事は役に立ちましたか?