Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Excel: свойства ячейки.


bw ©   (2004-12-07 20:25:00) 

Расскажите пожайлуста, какие свойства ячейки в Excel доступны через Delphi.

Более конкрето, если смотреть по анологии с самим Excel, то при нажатии свойства ячейки и "Формат ячеек" на закладке "выравнивание" есть параметр "Ориентация". Как его изменить из Delphi???

И еще конкретнее, если можно, то как изменить ориентацию для строки A2 на 90 градусов?


GanibalLector   (2004-12-09 01:23:00) [1]


> А запросто. Может речь шла не об работе через
> CreateOleObject, а о компонентах с закладки Servers.

Ну что-ж...ушел в запой...


GuAV   (2004-12-08 21:45:00) [2]

GanibalLector ©   (08.12.04 3:32) [2]
Ежели все повторится подобно [Печать!] ,

А запросто. Может речь шла не об работе через CreateOleObject, а о компонентах с закладки Servers.


GanibalLector   (2004-12-08 03:45:00) [3]

/ если можно, то как изменить ориентацию для строки A2 на 90 градусов?/
Пардонь,мне Б2 больше понравилась.


GanibalLector   (2004-12-08 03:32:00) [4]

Ежели все повторится подобно http://www.delphimaster.ru/cgi-bin/forum.pl?id=1101847447&n=0,то вероятно уйду в запой и перестану отвечать на любые вопросы.


GanibalLector   (2004-12-08 03:29:00) [5]


uses ActiveX,ComObj;
...

procedure TForm1.Button1Click(Sender: TObject);
var XLAPP:OleVariant;
i:integer;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;

XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';

XLApp.WorkBooks[1].Sheets[1].Cells[2,2]:='GanibalLector';
XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Select;

for i:=1 to 20 do begin
if odd(i) then
XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Orientation:=random(90)
else
XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Orientation:=0-random(90);
sleep(200);
                 end;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо