次の方法で共有

Cell.Diagonal プロパティ (Publisher)

  • [アーティクル]

斜め分割されたセルを表す PbCellDiagonalType 定数を設定または返します。 値の取得と設定が可能です。

構文

式。斜め

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

戻り値

PbCellDiagonalType

注釈

Diagonal プロパティの値には、Microsoft Publisher タイプ ライブラリで宣言されている PbCellDiagonalType クラスの定数のいずれかを指定できます。

例

次の使用例は、作業中の文書にページを追加し、新しいページに表を作成して、偶数列のすべてのセルを斜めに分割します。

Sub CreateNewTable() 
 
 Dim pgeNew As Page 
 Dim shpTable As Shape 
 Dim tblNew As Table 
 Dim celTable As Cell 
 Dim rowTable As Row 
 
 'Creates a new document with a five-row by five-column table 
 Set pgeNew = ActiveDocument.Pages.Add(Count:=1, After:=1) 
 Set shpTable = pgeNew.Shapes.AddTable(NumRows:=5, NumColumns:=5, _ 
 Left:=72, Top:=72, Width:=468, Height:=100) 
 Set tblNew = shpTable.Table 
 
 'Inserts a diagonal split into all cells in even-numbered columns 
 For Each rowTable In tblNew.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Column Mod 2 = 0 Then 
 celTable.Diagonal = pbTableCellDiagonalUp 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

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

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