Classe Table (PowerPoint VBA)

A classe Table representa uma forma de tabela em um slide. O objeto Table é um membro da coleção Shapes. O objeto Table contém as colunas coleção e as linhas coleção.

Set

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

Dim tbl as Table
Set tbl = ActiveWindow.RangeFromPoint.Table

Os procedimentos a seguir podem ser usados para definir variáveis do tipo Table: Row.Parent, Shape.Table e ShapeRange.Table

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Format with its procedures ApplyStyle e Style
Row with its procedures FirstRow, LastRow e Rows

Métodos

Estes são os principais métodos da classe

Cell - Retorna um objeto Cell que representa uma célula em uma tabela.

Dim lngRow As Long: lngRow = 2 
Dim lngColumn As Long: lngColumn = 3 
Dim cll As Cell
Set cll = ActivePresentation.Slides(1).Shapes(2).Table.Cell(Row:=lngRow, Column:=lngColumn)

Propriedades

AlternativeText Retorna ou define o texto associado a uma forma em uma apresentação da Web. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Table.AlternativeText =

Background Retorna o objeto TableBackground associado à tabela especificada. Somente leitura.

Dim tbdBackground As TableBackground
Set tbdBackground = ActiveWindow.RangeFromPoint.Table.Background

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

Dim clmsColumns As Columns
Set clmsColumns = ActivePresentation.Slides(1).Shapes(2).Table.Columns

FirstCol Determina se é para exibir a formatação especial para a primeira coluna da tabela especificada. Leitura/gravação.

ActiveWindow.RangeFromPoint.Table.FirstCol = True

HorizBanding Determina se é para exibir linhas em tiras, nas quais as linhas pares são formatadas de modo diferente das ímpares. Leitura/gravação.

ActiveWindow.RangeFromPoint.Table.HorizBanding = True

LastCol Determina se é para exibir a formatação especial para a última coluna da tabela especificada. Leitura/gravação.

ActiveWindow.RangeFromPoint.Table.LastCol = True

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Table.Parent

TableDirection Retorna ou define a direção na qual as células de tabela são ordenadas. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Table.TableDirection = ppDirectionLeftToRight

Title Retorna ou define o título do objeto Table . Leitura/gravação.

ActiveWindow.RangeFromPoint.Table.Title =

VertBanding Determina se é para exibir colunas em tiras, nas quais as colunas pares são formatadas de modo diferente das colunas ímpares. Leitura/gravação.

ActiveWindow.RangeFromPoint.Table.VertBanding = True