Clase Column (PowerPoint VBA)

La clase Column representa una columna de tabla. El objeto Column es un miembro de la colección Columns. La colección Columns incluye todas las columnas de una tabla.

Set

Para usar una variable de clase Column, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Column : Columns.Item, Columns.Add y Table.Columns

Cells

Devuelve una colección CellRange que representa las celdas de una fila o columna de tabla. Solo lectura.

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

Delete

Elimina el objeto Column especificado.

Si se intenta eliminar la única columna existente de una tabla, se producirá un error en tiempo de ejecución.

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

Parent

Devuelve el objeto primario del objeto especificado.

Select

Selecciona el objeto especificado.

El código no funcionará si se intenta hacer una selección que no es apropiada para la vista actual. Por ejemplo, puede seleccionar una diapositiva en la vista Clasificador de diapositivas, pero no en la vista Diapositiva.

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

Width

Devuelve o establece el ancho del objeto especificado en puntos. Lectura y escritura.

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

Columns.Add

Agrega una columna nueva a una tabla existente. Devuelve un objeto Column que representa la nueva columna de la tabla.

El valor del parámetro BeforeColumn debe estar comprendido entre 1 y el número de columnas de la tabla, inclusive. El valor predeterminado es -1, que indica que, si se omite el parámetro BeforeColumn, la nueva columna se agrega como última columna de la tabla.

Sintaxis : expression.Add (BeforeColumn)

BeforeColumn: Número de índice; la nueva columna se insertará antes de la columna de la tabla que especifica este número.

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

Columns.Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

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

Columns.Item

Devuelve un solo objeto Column de la colección Columns especificada.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto Column de la colección que se va a devolver.

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

Columns.Parent

Devuelve el objeto primario del objeto especificado.