how to rotate text within a powerpoint table

  • Thread starter Thread starter vanhalsen
  • Start date Start date
V

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
 
Vanhalsen said:
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?
Click to expand...

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.
 
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?
 
Vanhalsen said:
how could i use the other textorientation types

msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

any ideas?
Click to expand...

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
 
Back
Top