Método Cell.SetWidth (Word)
Establece el ancho de las columnas o celdas de una tabla.
expresión. SetWidth( _ColumnWidth_ , _RulerStyle_ )
expresión requerida. Variable que representa un objeto 'Cell'.
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ColumnWidth | Obligatorio | Single | Ancho, en puntos, de la columna o columnas especificadas. |
| RulerStyle | Obligatorio | WdRulerStyle | Controla la forma en que Word ajusta los anchos de celda. |
El comportamiento de WdRulerStyle descrito anteriormente se aplica a las tablas alineadas a la izquierda. El comportamiento de WdRulerStyle para tablas centradas o alineadas a la derecha puede ser inesperado; en estos casos, el método SetWidth debe usarse con cuidado.
En este ejemplo, se inserta una tabla en un nuevo documento y se establece el ancho de la primera celda de la segunda fila en 1,5 pulgadas. En el ejemplo se mantiene el ancho del resto de las celdas de la tabla.
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _
NumColumns:=3)
myTable.Cell(2,1).SetWidth _
ColumnWidth:=InchesToPoints(1.5), _
RulerStyle:=wdAdjustNone
En este ejemplo se establece el ancho de la celda que contiene el punto de inserción en 36 puntos. También se reduce el ancho de la primera columna para conservar la posición del borde derecho de la tabla.
If Selection.Information(wdWithInTable) = True Then
Selection.Cells(1).SetWidth ColumnWidth:=36, _
RulerStyle:=wdAdjustFirstColumn
Else
MsgBox "The insertion point is not in a table."
End If
¿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.