1type
2  XlOrientation = (xlUpward = -4171, xlDownward = -4170, xlVertical = -4166, 
3    xlHorizontal = -4128);

Или

1type
2  XlOrientation = TOleEnum;
3const
4  xlUpward = $FFFFEFB5;
5  xlDownward = $FFFFEFB6;
6  xlVertical = $FFFFEFBA;
7  xlHorizontal = $FFFFEFE0;

Элементы перечисления:

Имя	Значение	Назначение
xlUpward	-4171
xlDownward	-4170
xlVertical	-4166
xlHorizontal	-4128