In PP 2003 can you stack text vertically in a text box, i.e.,
T
E
S
T
Yes. Type press SHIFT+ENTER after each letter.
Make sure the text box is set to centered text.
Or select the text and run this macro on it:
Sub VerticalizeText()
Dim oSh As Shape
Dim x As Long
Dim sTemp As String
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh.TextFrame.TextRange
For x = 1 To Len(.Text)
sTemp = sTemp & Mid$(.Text, x, 1) & Chr$(11)
Next
.Text = sTemp
End With
oSh.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
End Sub
Note: Change "Verticalize" above to "Verticalise" to make your
computer happier if it's set to British English.
Another note: Ignore the first note. Small, probably doomed attempt
at humor.
Yet another note: Or if you prefer, humour.
