Объект Columns (PowerPoint)

Коллекция объектов Column , представляющих столбцы в таблице.

Пример

Используйте свойство Columns , чтобы вернуть коллекцию Columns . В этом примере находит первую таблицу в активной презентации, подсчитывается количество объектов Column в коллекции Columns и отображается информация для пользователя.

Dim ColCount, sl, 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

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

With ActivePresentation.Slides(2).Shapes(5).Table

    .Columns.Add.Width = 72

End With

Используйте columns (index) для возврата одного объекта Column . Индекс представляет позицию столбца в коллекции Columns (как правило, при подсчете слева направо, хотя свойство TableDirectionможет изменить это значение). В этом примере выбирается первый столбец таблицы в форме пять на втором слайде.

ActivePresentation.Slides(2).Shapes(5).Table.Columns(1).Select

См. также

Справочник по объектной модели PowerPoint

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

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