Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

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

 
ef2000   (2003-01-31 17:23) [0]

Здравствуйте!

Подскажите как задать границу определенной ячейке, или диапазону ячеек в Еxcel. Использую TExcelApplication.

Заранее благодарен.


 
ef2000   (2003-02-01 15:34) [1]

up


 
ef2000   (2003-02-03 08:24) [2]

2up


 
Романов Р.В.   (2003-02-03 08:50) [3]

uses Excel97;

procedure SetEdge(Range: OleVariant);
begin
Range.Borders[xlEdgeLeft].LineStyle := xlContinuous;
Range.Borders[xlEdgeLeft].Weight := xlMedium;
Range.Borders[xlEdgeTop].LineStyle := xlContinuous;
Range.Borders[xlEdgeTop].Weight := xlMedium;
Range.Borders[xlEdgeBottom].LineStyle := xlContinuous;
Range.Borders[xlEdgeBottom].Weight := xlMedium;
Range.Borders[xlEdgeRight].LineStyle := xlContinuous;
Range.Borders[xlEdgeRight].Weight := xlMedium;
if Range.Columns.Count > 1 then
begin
Range.Borders[xlInsideVertical].LineStyle := xlContinuous;
Range.Borders[xlInsideVertical].Weight := xlThin;
end;
if Range.Rows.Count > 1 then
begin
Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
Range.Borders[xlInsideHorizontal].Weight := xlThin;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.009 c
1-38227
hogo
2003-02-03 07:39
2003.02.13
TStringGrid


14-38490
Сатир
2003-01-27 13:22
2003.02.13
Тест: несколько обещанных мною отсканированных дипломов


14-38462
КАСТРУЛЯ
2003-01-30 16:24
2003.02.13
Прокрутка колёсика мыши (Я КАСТРЮЛЯ)


4-38658
virginkiller
2002-12-29 23:18
2003.02.13
MDI Child + Menu


3-38109
sewix
2003-01-27 08:50
2003.02.13
QuickReport отчет не из нестандартной базы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский