Classe Cell (PowerPoint VBA)

A classe Cell representa uma célula de tabela. Objeto Cell é um membro do CellRange coleção. A coleção CellRange representa todas as células na linha ou coluna especificada. Para usar a coleção CellRange, use a palavra-chave de células.

O procedimento principal da classe Cell é Select

Set

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

Dim cll as Cell
Set cll = Dim lngRow As Long: lngRow = 
Dim lngColumn As Long: lngColumn = 
ActiveWindow.RangeFromPoint.Table.Cell(Row:=lngRow, Column:=lngColumn)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Cell: CellRange.Item, Table.Cell, Column.Cells e Row.Cells

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Sort/Order with its procedures Borders e CellRange.Borders

Métodos

Este é o método principal da classe Cell

Select - Seleciona o objeto especificado.

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

Estes são os principais métodos da classe

Split - Divide uma única célula de tabela em várias células.

Dim lngNumRows As Long: lngNumRows = 
Dim lngNumColumns As Long: lngNumColumns = 
ActivePresentation.Slides(1).Shapes(2).Table.Cell(1,1).Split NumRows:=lngNumRows, NumColumns:=lngNumColumns

Propriedades

Parent Retorna o objeto parente para o objeto especificado.

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

Selected Retorna true se a célula da tabela especificada estiver selecionada. Somente leitura.

Dim booSelected As Boolean
booSelected = ActivePresentation.Slides(1).Shapes(2).Table.Cell.Selected

Shape Retorna um objeto Shape que representa uma forma em uma célula de tabela. Somente leitura.

Dim shpShape As Shape
Set shpShape = ActivePresentation.Slides(1).Shapes(2).Table.Cell.Shape

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

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

CellRange.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Table.Rows(1).Cells.Parent