次の方法で共有

Cell.BorderDiagonal プロパティ (Publisher)

  • [アーティクル]

指定したテーブル セルの対角線の境界線を表す CellBorder オブジェクトを返します。

構文

式。BorderDiagonal

式Cell オブジェクトを表す変数。

戻り値

CellBorder

例

次の使用例は、指定した表のセルを 1 つおきに斜めに分割し、斜め罫線を追加します。 この例では、2 ページ目の最初の図形がテーブルであり、別の種類の図形ではないことを前提としています。

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 Dim intCell As Integer 
 
 intCell = 1 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If intCell Mod 2 = 0 Then 
 With celTable 
 .Diagonal = pbTableCellDiagonalDown 
 With .BorderDiagonal 
 .Weight = 1 
 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
 End With 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 intCell = intCell + 1 
 Next celTable 
 Next rowTable 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。