Publisher (的 Cell.Diagonal 屬性)

會設定或傳回代表對角線分割之儲存格 的 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 支援與意見反應。