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


Свойство 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

См. также

Объект Table

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

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