Seems a bug in setting Style.Orientation property

[Raja]

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

 

[Jim Rech]

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=xlVertical

doing this has no effect:

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

But if you interpose either of these:
ActiveWorkbook.Styles("Normal").Orientation=xlDownward
ActiveWorkbook.Styles("Normal").Orientation=xlUpward

then it does.

--
Jim
| 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

 

[Raja]

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

 

[Jim Rech]

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