VPF::Маленький совет по Excel - Форум программистов

DimassS

Дата 13.4.2006, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Проблема в следующем - нужно через Delphi задать диапазону ячеек выравнивание содержимого по центру!!

пробовал в Excel написать макрос выдает такую штуку:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Думаю от сюда мне нужно ".HorizontalAlignment = xlCenter" , переношу в Delphi, не работает, подскажите кто знает... smile

Заранее благодарю!!! smile

Albinos_x

Дата 13.4.2006, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

мдя....
Тут в разделе темка закреплена... там всё это есть:
http://forum.vingrad.ru/index.php?showtopic=84634

Цитата

...
Форматируем ячейки и текст в них

Код


...

// Горизонтальное выравнивание по центру
ExcelApplication1.Range['A1','D1'].HorizontalAlignment := xlCenter;
// Вертикальное выравнивание по центру
ExcelApplication1.Range['A1','D1'].VerticalAlignment:=xlCenter;

// сетка таблицы
ExcelApplication1.Range['A1','D1'].Borders.LineStyle:=xlContinuous;
// перенос текста в ячейках по словам
ExcelApplication1.Range['A1','D1'].WrapText:=true;
// стиль шрифта в ячейке жирный
ExcelApplication1.Range['A1','D1'].Font.Bold:=true;
// заливка ячеек жёлтым цветом
ExcelApplication1.Range['A1','D1'].Interior.ColorIndex:=36;
...

...

Это сообщение отредактировал(а) Albinos_x - 13.4.2006, 10:05

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

DimassS

Дата 24.4.2006, 07:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Цитата

// Горизонтальное выравнивание по центру
ExcelApplication1.Range['A1','D1'].HorizontalAlignment := xlCenter;

У меня почему-то не работает, заработало когда вместо "xlCenter" поставил число - 3

Всем спасибо, тема закрыта!

Albinos_x

Дата 24.4.2006, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата

У меня почему-то не работает, заработало когда вместо "xlCenter" поставил число - 3

странно... у меня всё работает без проблем...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

eNecro

Дата 15.4.2008, 06:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 12.2.2008

Репутация: нет
Всего: нет

а не подскажите где можно поглядеть список этих команд(xlCenter,xlRight)?

заранее благодарен

Это сообщение отредактировал(а) eNecro - 15.4.2008, 10:13

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »