Поделиться через

Свойство ShapeRange.Table (Издатель)

  • Статья

Возвращает объект Table , представляющий таблицу в Microsoft Publisher.

Синтаксис

expression. Таблице

Выражение Переменная, представляющая объект 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 и обратная связь.