Свойство Table.Columns (PowerPoint)
Возвращает коллекцию Columns , представляющую все столбцы в таблице. Только для чтения.
Синтаксис
expression. Столбцы
Выражение Переменная, представляющая объект Table .
Возвращаемое значение
Столбцы
Замечания
Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.
Пример
В этом примере отображается номер фигуры, номер слайда и количество столбцов в первой таблице активной презентации.
Dim ColCount As Integer
Dim sl As Integer
Dim sh As Integer
With ActivePresentation
For sl = 1 To .Slides.Count
For sh = 1 To .Slides(sl).Shapes.Count
If .Slides(sl).Shapes(sh).HasTable Then
ColCount = .Slides(sl).Shapes(sh) _
.Table.Columns.Count
MsgBox "Shape " & sh & " on slide " & sl & _
" contains the first table and has " & _
ColCount & " columns."
Exit Sub
End If
Next
Next
End With
В этом примере выбранная фигура проверяет, содержит ли она таблицу. Если это так, код задает ширину столбца 1 в 72 точки (один дюйм).
With ActiveWindow.Selection.ShapeRange
If .HasTable = True Then
.Table.Columns(1).Width = 72
End If
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.