SetRegionBorderThickness メソッド

オブジェクト：NativeWorksheetItem

• タイプ: Sub
• 構文: NativeWorksheetItem object.SetRegionBorderThickness(border thickness long, left column variant, optional right column variant)

指定したワークシート範囲の境界線の太さを設定します。設定される境界線は、その範囲にある各列の左側の境界線と、その範囲にある各行のグリッドラインで構成されます。引数 border thickness は、指定した範囲に太線を設定する方法で、以下に示す整数値を指定します：

値	効果
0	太線なし
1	左側のみ太線にする 例：2列目と3列目の左側を太線にする ActiveDocument.CurrentDataItem.SetRegionBorderThickness(1,1,2)
2	各行のみ太線にする 例：2列目と3列目の各行を太線にする ActiveDocument.CurrentDataItem.SetRegionBorderThickness(2,1,2)
3	各行と左側を太線にする 例：2列目と3列目の各行と左側を太線にする ActiveDocument.CurrentDataItem.SetRegionBorderThickness(3,1,2)

Example

• 以下に示すプログラムは、列と列グリッドの境界線を設定するのに使用できます。

  Dim Worksheet As Object
  Dim Column As Long
  Option Explicit
  
  Sub Main
  Set Worksheet = ActiveDocument.CurrentDataItem
  Column = 1
  MacroDialog:
  Begin Dialog UserDialog 240,154,"Set Border Thickness",.DialogFunc ' %GRID:10,7,1,1
  PushButton 10,7,80,21,"Left Side",.LeftSide
  PushButton 10,35,80,21,"Right Side",.RightSide
  PushButton 10,63,80,21,"Row Grid",.RowsOnly
  PushButton 10,91,80,21,"All Borders",.AllBorders
  PushButton 10,119,80,21,"Clear All",.ClearAll
  Text 120,14,120,14,"Column Number",.Text1
  TextBox 120,35,90,21,.ColumnNumber
  OKButton 140,119,80,21,.OKButton
  End Dialog
  Dim dlg As UserDialog
  dlg.ColumnNumber = CStr(Column + 1)
  Select Case Dialog(dlg)
  Case 1
  Column = CLng(dlg.ColumnNumber) - 1
  Worksheet.SetRegionBorderThickness(1,Column)
  Worksheet.SetRegionBorderThickness(0,Column + 1)
  GoTo MacroDialog
  Case 2
  Column = CLng(dlg.ColumnNumber) - 1
  Worksheet.SetRegionBorderThickness(1,Column + 1)
  Worksheet.SetRegionBorderThickness(0,Column)
  GoTo MacroDialog
  Case 3
  Column = CLng(dlg.ColumnNumber) - 1
  Worksheet.SetRegionBorderThickness(2,Column)
  Worksheet.SetRegionBorderThickness(0,Column + 1)
  GoTo MacroDialog
  Case 4
  Column = CLng(dlg.ColumnNumber) - 1
  Worksheet.SetRegionBorderThickness(3,Column)
  Worksheet.SetRegionBorderThickness(1,Column + 1)
  GoTo MacroDialog
  Case 5
  Column = CLng(dlg.ColumnNumber) - 1
  Worksheet.SetRegionBorderThickness(0,Column)
  Worksheet.SetRegionBorderThickness(0,Column + 1)
  GoTo MacroDialog
  End Select
  End Sub
  
  Function DialogFunc%(DlgItem$, Action%, SuppValue%)
  Select Case Action%
  Case 1 ' Dialog box initialization
  DlgText "OKButton","Close"
  End Select
  End Function