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

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

  • Статья

Возвращает msoTrue, если фигура представляет объект Table , или msoFalse , если фигура представляет любой другой тип объекта. Только для чтения.

Синтаксис

expression. HasTable

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

Пример

В этом примере проверяется выбранная в данный момент фигура, чтобы узнать, является ли она таблицей. Если это так, код задает ширину столбца от одного до одного дюйма (72 точки).

Sub IsTable() 
 
 With Application.Selection.ShapeRange 
 If .HasTable = msoTrue Then 
 .Table.Columns(1).Width = 72 
 End If 
 End With 
 
End Sub

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

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