LOL - Nope, I should have known better than to doubt you; those are of
course the ones for orientation!

wrote:
Sorry, "readingorder"

wrote:
Tom,

Thank you for the info. I'm experimenting with both. However, it looks
to me as if the defined constants are for "ReadingDirection" rather
than Orientation, is that right?

Are there defined constants for Orientation?

I can no longer remember how to wade thru the Object Browser to a list
of these constants. Argh.

Thanks again,
Neva

Tom Ogilvy wrote:
just to add, excel has the following defined constants and their
corresponding values:

xlDownward -4170
xlHorizontal -4128
xlupward -4171
xlVertical -4166

Select Case cell.orientation

case xlDownward ' -90

case xlHorizontal ' 0

case xlUpward ' 90

Case xlVertical

case else
' number of degrees

end Select


t
h
i
s

i
s

x
l
v
e
r
t
i
c
a
l


--
Regards,
Tom Ogilvy


--
Regards,
Tom Ogilvy


"nwarnock" wrote:

<snip

I'm trying to write one that will toggle the text orientation of the
selection from 0 to -90, and if it's not 0, then make it 0. I've tried
the following so far:

Sub ToggleTextOrientation()

If Selection.Orientation = 90 Then
Selection.Orientation = 0
ElseIf Selection.Orientation = 0 Then
Selection.Orientation = 90
ElseIf Selection.Orientation = -90 Then
Selection.Orientation = 0
End If

End Sub


I finally put a watch on Selection.Orientation. I get
Watch :
Expression: Selection.Orientation
Value: -4128
Type: Variant/Long
Context: Module2.ToggleTextOrientation

OK, it's in the back of my mind that -4128 is the datatype code, or
something like that.