Ориентация страницы в Excel

← →
Дельфин (2003-10-21 16:34) [0]

Работаю с Excel из Дельфей:

var
LCID: integer;
xla: _Application;
xlw: _Workbook;
...

xla := CoApplication.Create;
LCID := GetUserDefaultLCID;
xlw := xla.Workbooks.Add(xlWBATWorksheet, LCID);
ну и так далее...
---

вопрос как мне поменять ориентацию страницы портрет/ландшафт?
если можно, напишите конкретный кусочек кода (наверняка все одной строкой делается).

ps пытался подсмотреть код через макросы, но "ActiveSheet.PageSetup.Orientation = xlLandscape" мне не помогло, т.е. ни у объекта "xla.ActiveSheet" ни у "xlw.ActiveSheet" нет такого свойства как "PageSetup" :(

← →
AbrosimovA (2003-10-21 16:52) [1]

Worksheets("Sheet1").PageSetup.Orientation = xlLandscape

← →
Дельфин (2003-10-21 17:00) [2]

пишу:
xla.Worksheets["Sheet1"].PageSetup.Orientation = xlLandscape;

в ответ:
Undeclared identifier "PageSetup"
те же грабли..

← →
ZrenBy (2003-10-21 17:09) [3]

var ws:_WorkBook; sh:_WorkSheet;
begin
. . .
ws := ea.Workbooks.Add(EmptyParam,0);

sh := ws.ActiveSheet as _WorkSheet;//возвращает IDispatch !!!
sh.PageSetup.Orientation := xlLandscape;

← →
Дельфин (2003-10-21 17:14) [4]

ZrenBy,
что такое EmptyParam , его значение?

← →
Дельфин (2003-10-21 17:19) [5]

все, понял, получалось ))
спасибо ))

← →
Дельфин (2003-10-21 17:30) [6]

Кстати, почему код
(xlw.ActiveSheet as _WorkSheet).PageSetup.Orientation := xlLandscape;
работает

а код
_WorkSheet(xlw.ActiveSheet).PageSetup.Orientation := xlLandscape;
нет?

← →
Sandman25 (2003-10-21 17:32) [7]

В данном случае as - не приведение типа, а запрос интерфейса.

← →
Дельфин (2003-10-21 17:33) [8]

спасибо.
вот где неграмотность вылезла..

Ориентация страницы в Excel Найти похожие ветки