Cómo: trabajar con tablas

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Con Microsoft Office PowerPoint, puede crear tablas nativas sin necesidad de importarlas de Microsoft Office Word. Las tablas son miembros de la colección Shapes. Cada celda, columna o fila de una tabla es un objeto programable independiente.

Crear una tabla

Para crear una tabla en una diapositiva, use el método AddTable. Este método agrega una tabla a la colección Shapes con el número de filas y columnas designadas por los argumentos NumRows y NumColumns. En este ejemplo, se agrega una tabla con tres filas y cuatro columnas a la diapositiva dos.

ActivePresentation.Slides(2).Shapes _
    .AddTable NumRows:=3, NumColumns:=4, Left:=10, _
    Top:=10, Width:=288, Height:=288

Comprobar si una forma es una tabla

Antes de trabajar con el contenido o los objetos en una tabla, primero debe saber si la forma en que está trabajando es una tabla. Para ver si una forma es una tabla, utilice la HasTable propiedad. Por ejemplo, supongamos que la diapositiva uno tiene numerosas formas y sabe que una de ellas es una tabla. Desea cambiar el tamaño de esta tabla para que sea el tamaño adecuado para aceptar los datos que se va a importar desde otro origen. Este código recorre la colección Shapes de la diapositiva dos hasta que encuentra en la tabla y, a continuación, cambia el ancho de las columnas.

With ActivePresentation.Slides(2)
    For sh = 1 To .Shapes.Count
        If .Shapes(sh).HasTable Then
            For Each col In .Shapes(sh).Table.Columns
                col.Width = 110
            Next col
        End If
    Next
End With

Trabajar con celdas, columnas y filas

Para devolver el contenido y las propiedades de una columna o fila, utilice a un miembro específico de las columnas o la colección de filas . El método Cell devuelve una sola celda objeto dentro de una tabla. En este ejemplo se modifica varios atributos de la tabla representada por la forma cinco de la diapositiva dos. Se cambia el color de la fila dos, el ancho de la columna uno y el texto contenido en la fila dos, una celda de columna.

With ActivePresentation.Slides(2).Shapes(4).Table
    For Each cl In .Rows(2).Cells
        cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)
    Next cl
    .Columns(1).Width = 110
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard"
End With

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.