Hi,

I set the Style.Orientation property to xlVertical as follow:

ActiveWorkbook.Styles("Normal") .Orientation = xlVertical

Looking on the value of the Orientation property after the assignment, it
still have
the xlHorizontal value. However In Cell Formats dialog, it appear correct

Any idea?

Raja

I agree, seems to be a bug. I'm not sure how you would detect whether a
style has vertical alignment.

A related anomaly is, after doing this:

ActiveWorkbook.Styles("Normal").Orientation=xlVert ical

doing this has no effect:

ActiveWorkbook.Styles("Normal").Orientation=xlHori zontal

But if you interpose either of these:
ActiveWorkbook.Styles("Normal").Orientation=xlDown ward
ActiveWorkbook.Styles("Normal").Orientation=xlUpwa rd

then it does.

--
Jim
"Raja" wrote in message
...
| Hi,
|
| I set the Style.Orientation property to xlVertical as follow:
|
| ActiveWorkbook.Styles("Normal") .Orientation = xlVertical
|
| Looking on the value of the Orientation property after the assignment, it
| still have
| the xlHorizontal value. However In Cell Formats dialog, it appear correct
|
| Any idea?
|
| Raja

BUT i wonder how Excel Cell Format dialog could detect that!!!!
it seems to me there is a missing property

"Jim Rech" wrote:

I agree, seems to be a bug. I'm not sure how you would detect whether a
style has vertical alignment.

A related anomaly is, after doing this:

ActiveWorkbook.Styles("Normal").Orientation=xlVert ical

doing this has no effect:

ActiveWorkbook.Styles("Normal").Orientation=xlHori zontal

But if you interpose either of these:
ActiveWorkbook.Styles("Normal").Orientation=xlDown ward
ActiveWorkbook.Styles("Normal").Orientation=xlUpwa rd

then it does.

--
Jim
"Raja" wrote in message
...
| Hi,
|
| I set the Style.Orientation property to xlVertical as follow:
|
| ActiveWorkbook.Styles("Normal") .Orientation = xlVertical
|
| Looking on the value of the Orientation property after the assignment, it
| still have
| the xlHorizontal value. However In Cell Formats dialog, it appear correct
|
| Any idea?
|
| Raja

The Excel object model (and its bugs) has nothing to do with what Excel does
internally. Two different things entirely.

--
Jim
"Raja" wrote in message
...
BUT i wonder how Excel Cell Format dialog could detect that!!!!
it seems to me there is a missing property

"Jim Rech" wrote:

I agree, seems to be a bug. I'm not sure how you would detect whether a
style has vertical alignment.

A related anomaly is, after doing this:

ActiveWorkbook.Styles("Normal").Orientation=xlVert ical

doing this has no effect:

ActiveWorkbook.Styles("Normal").Orientation=xlHori zontal

But if you interpose either of these:
ActiveWorkbook.Styles("Normal").Orientation=xlDown ward
ActiveWorkbook.Styles("Normal").Orientation=xlUpwa rd

then it does.

--
Jim
"Raja" wrote in message
...
| Hi,
|
| I set the Style.Orientation property to xlVertical as follow:
|
| ActiveWorkbook.Styles("Normal") .Orientation = xlVertical
|
| Looking on the value of the Orientation property after the assignment,
it
| still have
| the xlHorizontal value. However In Cell Formats dialog, it appear
correct
|
| Any idea?
|
| Raja