CellTextOrientation Property

Microsoft Publisher Visual Basic

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