Delphi & Excel

← →
Ann_k (2004-05-05 16:23) [0]

D7, Excel2000

Нужно развернуть страницу Excel в альбомный вид.
Подскажите, пожалуйста, как правильно это сказать, чтобы Delphi понял?

Использую Appl: TExcelApplication;
Сказать ему appl.activesheet.pagesetup.orientation:=xlLandscape
не получается, он говорит, что св-ва pagesetup у activesheet не существует.

← →
Palladin © (2004-05-05 16:33) [1]

activesheet есть IDispatch
нужно привести его к TExcelWorksheet

← →
Ann_k (2004-05-05 16:41) [2]

А можно это в виде кода написать?

Это должно выглядеть так?
active_sheet:=TExcelWorksheet(Appl.ActiveSheet);
active_sheet.PageSetup.Orientation := xlLandscape;

← →
Ann_k (2004-05-05 17:19) [3]

2Palladin:
И все-таки, пожалуйста, кусок кода! Неопытная я еще в общении с Excelem через Delphi.

(appl.activesheet as _WorkSheet).PageSetup.Orientation:=xlLandScape

← →
Ann_k (2004-05-05 17:50) [5]

2Palladin: Спасибо большое! :-)

Delphi &amp; Excel Найти похожие ветки

Delphi & Excel Найти похожие ветки