Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2007, 06:00   #1
Sony
 
Регистрация: 17.11.2006
Сообщений: 4
По умолчанию Как в ячейке Excel сделать надстрочный шрифт?

Подскажите, как из delphi для ячейки(точнее для части ячейки) Excel установить надстрочный шрифт или верхний индекс?
Sony вне форума Ответить с цитированием
Старый 25.07.2007, 11:19   #2
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Uses ComObj;

Код:
var XL: variant;
begin
  XL := CreateOleObject('Excel.Application');
  XL.DisplayAlerts := false;
  XL.WorkBooks.Open('c:\123.xls');
  XL.Visible := true;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Superscript := True;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Subscript := False;
end;
А вообще, код для Excel можно получать так: включаем запись макроса, производим все действия, которые нужно сделать из Дельфи, выключаем запись и получаем готовый код на Бейсике... ну, а дальше - дело техники.

Последний раз редактировалось _SERGEYX_; 25.07.2007 в 11:28.
_SERGEYX_ вне форума Ответить с цитированием
Старый 26.07.2007, 01:59   #3
Sony
 
Регистрация: 17.11.2006
Сообщений: 4
По умолчанию

Спасибо, получилось.
Вообще записывала в Excel макрос, но там надстрочный шрифт через Underline
Font.Underline = xlUnderlineStyleNone
в Deiphi просто так перевести не получилось
Sony вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать так, чтобы в DBGrid выводилась таблица Excel Илюха БД в Delphi 10 06.05.2010 15:59
Excel.Пользовательское меню. Помогите сделать. susanin15 Microsoft Office Excel 2 10.06.2008 22:57
Как сделать задание в Excel Катруся Microsoft Office Excel 6 08.06.2008 19:54
Как обратиться к ячейке файла Excel не открывая его Alexandro Microsoft Office Excel 3 28.05.2008 12:02
Можно ли в ListBox шрифт в одном Item сделать жирным, а в другом обычным? Washington Компоненты Delphi 9 28.03.2007 12:43