Objeto Columns (PowerPoint)

Una colección de columnas objetos que representan las columnas de una tabla.

Ejemplo:

Utilice la propiedad Columns para devolver la colección Columns. En este ejemplo se busca la primera tabla de la presentación activa, se cuenta el número de objetos Column de la colección Columns y se muestra la información al usuario.

Dim ColCount, sl, 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

Utilice el método Add para agregar una columna a una tabla. En este ejemplo se crea una columna en una tabla existente y establece el ancho de la columna nueva en 72 puntos (una pulgada).

With ActivePresentation.Slides(2).Shapes(5).Table

    .Columns.Add.Width = 72

End With

Utilice columnas (index) para devolver un solo objeto Column. Index representa la posición de la columna en la colección Columns (normalmente contando de izquierda a derecha; aunque la propiedad TableDirectionpuede invertirlo). En este ejemplo se selecciona la primera columna de la tabla en la forma cinco de la segunda diapositiva.

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

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.