Classe Column (PowerPoint VBA)

A classe Column representa uma coluna de tabela. O objeto Column é um membro da coleção Columns. A coleção Columns inclui todas as colunas em uma tabela.

Set

Para usar uma variável de classe Column, ela primeiro precisa ser instanciada por exemplo

Dim clm as Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Column: Columns.Item, Columns.Add e Table.Columns

Cells

Retorna uma coleção CellRange que representa as células em uma linha ou coluna da tabela. Somente leitura.

Dim creCells As CellRange
Set creCells = ActivePresentation.Slides(1).Shapes(2).Table.Columns(1).Cells

Delete

Exclui o objeto Column especificado.

A tentativa de excluir a única coluna existente em uma tabela resultará em um erro em tempo de execução.

ActiveWindow.RangeFromPoint.Table.Columns(1).Delete

Parent

Retorna o objeto parente para o objeto especificado.

Select

Seleciona o objeto especificado.

Se você tentar fazer uma seleção não apropriada para o modo, seu código não funcionará. Por exemplo, é possível selecionar um slide em modo de classificação de slides, mas não em modo de exibição de slides.

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

Width

Retorna ou define a largura do objeto especificado, em pontos. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Table.Columns(1).Width = 150

Columns.Add

Adiciona uma nova coluna a uma tabela existente. Retorna um objeto Column que representa a nova coluna de tabela.

O valor do parâmetro BeforeColumn deve estar entre 1 e o número de colunas na tabela, inclusive. O valor padrão é -1, o que significa que se você omitir o parâmetro BeforeColumn, a nova coluna será adicionada como a última coluna da tabela.

Sintaxe : expression.Add (BeforeColumn)

BeforeColumn: O número de índice que especifica a coluna da tabela antes da qual a nova coluna será inserida.

Dim clm As Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns.Add()

Columns.Count

Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.Slides(1).Shapes(2).Table.Columns.Count

Columns.Item

Retorna um único objeto Column da coleção Columns especificada.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto Column da coleção a ser retornado.

Dim clm As Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns(Index:=1)

Columns.Parent

Retorna o objeto parente para o objeto especificado.