ShapeRange.Table 屬性 (Publisher)

會傳回 Table 物件，代表 Microsoft Publisher 中的資料表。

語法

運算式。表

表達 代表 ShapeRange 物件的 變數。

範例

以下範例在使用中出版物第一頁上新增一個 5x5 的表格，然後選取新表格的第一欄。

Sub NewTable() 
 With ActiveDocument.Pages(1).Shapes.AddTable(NumRows:=5, _ 
 NumColumns:=5, Left:=72, Top:=300, Width:=400, Height:=100) 
 .Table.Columns(3).Cells(3).Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=0, Blue:=0) 
 End With 
End Sub

以下範例選取使用中出版物中的指定表格。 本範例假設使用中出版物第一頁內至少有一個圖案。

Sub SelectTable() 
 With ActiveDocument.Pages(1).Shapes(1) 
 If .Type = pbTable Then 
 .Table.Rows(3).Cells(3).Fill.ForeColor _ 
 .RGB = RGB(Red:=150, Green:=150, Blue:=150) 
 End If 
 End With 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。