that represents the flow of text in a specified table cell. Read/write.
PbTextOrientation can be one of these PbTextOrientation constants. |
pbTextOrientationHorizontal |
pbTextOrientationMixed |
pbTextOrientationRightToLeft |
pbTextOrientationVerticalEastAsia |
expression.CellTextOrientation
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example increases the height of the cells in the first row, and then adds vertically-oriented heading text.
Sub VerticalText()
Dim rowTable As Row
Dim celTable As Cell
With ActiveDocument.Pages(2).Shapes(1).Table.Rows(1)
.Height = Application.InchesToPoints(1.5)
For Each celTable In .Cells
With celTable
.CellTextOrientation _
= pbTextOrientationVerticalEastAsia
.TextRange.ParagraphFormat.Alignment _
= pbParagraphAlignmentCenter
.TextRange.Text = "Column Heading " _
& celTable.Column
End With
Next
End With
End Sub