Свойство Selection.TableCellRange (издатель)

Возвращает объект CellRange , представляющий ячейки в выборке таблицы.

Синтаксис

выражение. TableCellRange

выражение Переменная, представляющая объект выделения .

Возвращаемое значение

CellRange

Пример

В данном примере заполняются ячейки таблицы в выделенном фрагменте.

Sub FillTableCellRange() 
 Dim intCount As Integer 
 With Selection 
 If .Type = pbSelectionTableCells Then 
 With .TableCellRange 
 For intCount = 1 To .Count 
 .Item(intCount).Fill.ForeColor.RGB = RGB _ 
 (Red:=0, Green:=255, Blue:=255) 
 Next intCount 
 End With 
 End If 
 End With 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.