Propriedade Table.Columns (PowerPoint)

Retorna uma coleção Columns que representa todas as colunas em uma tabela. Somente leitura.

Sintaxe

expressão. Colunas

Expressão Uma variável que representa um objeto Table .

Valor de retorno

Colunas

Comentários

Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.

Exemplo

Este exemplo exibe o número da forma, o número do slide e o número de colunas na primeira tabela da apresentação ativa.

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

Este exemplo testa a forma selecionada para verificar se ela contém uma tabela. Se ela contiver uma tabela, o código definirá a largura da coluna um como 72 pontos (2,54 centímetros).

With ActiveWindow.Selection.ShapeRange

    If .HasTable = True Then

       .Table.Columns(1).Width = 72

    End If

End With

Confira também

Objeto Table

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.