Objeto Columns (PowerPoint)

Um conjunto de coluna objetos que representam as colunas em uma tabela.

Exemplo

Use a propriedade Columns para retornar a coleção Columns. Este exemplo localiza a primeira tabela da apresentação ativa, calcula o número de objetos Column da coleção Columns e exibe informações ao usuário.

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

Use o método Add para adicionar uma coluna a uma tabela. Este exemplo cria uma coluna em uma tabela existente e define a largura da nova coluna como 72 pontos (uma polegada).

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

    .Columns.Add.Width = 72

End With

Use colunas (index) para retornar um único objeto Column. Index representa a posição da coluna na coleção Columns (geralmente contando da esquerda para a direita; embora a propriedade TableDirectionpossa reverter isso). Este exemplo seleciona a primeira coluna da tabela na forma cinco do segundo slide.

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

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.