how to rotate text within a powerpoint table

[vanhalsen]

Hi,

i have another problem with a powerpoint table, how could i rotate text
with in a single cell or a whole row by 270 degree.

Using

..TextFrame.Orientation = msoTextOrientationVerticalFarEast

will only allow me to rotate it by 90 degree but it looks a bit weird
to read a headline within a table that way. Any ideas?

thanks

 

[Steve Rindsberg]

Hi,

i have another problem with a powerpoint table, how could i rotate text
with in a single cell or a whole row by 270 degree.

Using

..TextFrame.Orientation = msoTextOrientationVerticalFarEast

will only allow me to rotate it by 90 degree but it looks a bit weird
to read a headline within a table that way. Any ideas?

As far as I know, text can be horizontal or (if far east) vertical, top to
bottom). Period.

The shape that contains the text can be rotated and if it is, the text's
baseline rotates to match the orientation of the shape.

PPT won't let you rotate individual cells (or rather the shapes that they
equate to) unless you ungroup the table.

 

[vanhalsen]

how could i use the other textorientation types

msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

any ideas? the help file says that it depends on language of the
ppt-version, any experience with it?

 

[Steve Rindsberg]

how could i use the other textorientation types

msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

any ideas?

Try them? ;-)

Sub TestIt()

On Error Resume Next

With ActiveWindow.Selection.ShapeRange(1).TextFrame

.Orientation = msoTextOrientationDownward
If Err.Number = 0 Then
MsgBox "Downward"
End If

.Orientation = msoTextOrientationHorizontalRotatedFarEast
If Err.Number = 0 Then
MsgBox "RotatedFarEast"
End If

.Orientation = msoTextOrientationMixed
If Err.Number = 0 Then
MsgBox "Mixed"
End If

' and we'll leave some as exercise for the reader
' it builds character

End With
End Sub