Скачать: CL | DM;

Снова Excel, а точнее форматирование.   Найти похожие ветки 

← →
Hawk2   (2002-08-15 10:52) [0]

Знаю что тема Excel уже поднималась неоднократно, но всеже ответа на свой вопрос я не нашел. Я не буду спрашивать как запустить Excel, как его закрыть или как запихнуть в него данные это уже научился, меня интересует форматирование, а точнее как нарисовать сетку по выделеным ячейкам, изменить цвет шрифта и т.д. На AfalinaSoft и Королевство Делфи не отправлять уже был там. Я когда-то был на одном сайте там довольно неплохо описывалось форматирование, но забыл как называется (чтото вроде Excel+Delphi или Excel&Delphi) может кто знает точний адрес или ответ на ворос, помогите кто чем может.

---

← →
Ekaterina ©   (2002-08-15 11:32) [1]

ExcelApplication.Selection - возвращает выделенный объект. Если это ячейки, то преобразовать к Range.
Range.Borders- границы ячейек.
Range.Borders.Colour - цвет границы.
Range.borders.weight- ширина.
range.borders.linestyle-стиль линии
range.borders.item[index]-одна из границ: index может быть : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, or xlEdgeTop, xlInsideHorizontal, or xlInsideVertical.
Запускаешь Excel, жмёшь Alt-F11, затем F1 и читаешь всё это...

---

← →
Hawk2   (2002-08-15 12:27) [2]

А рабочий примерчик можно?

---

← →
AFROLOV ©   (2002-08-15 12:28) [3]

А еще есть в составе офисных приложений есть макрорекордер, так тот просто код генерит - иногда не надо даже помощь читать.

---

← →
AFROLOV ©   (2002-08-15 12:29) [4]

Лучше научись пользоваться вышеописанным, тогда 99.9% вопросов будет решаться самостоятельно.

---

← →
VL ©   (2002-08-15 12:31) [5]

xlVariant.Selection.Borders[7].LineStyle := 1;
xlVariant.Selection.Borders[7].Weight := 2;
xlVariant.Selection.Borders[7].ColorIndex := -4105;
{ВВерх}
xlVariant.Selection.Borders[8].LineStyle := 1;
xlVariant.Selection.Borders[8].Weight := 2;
xlVariant.Selection.Borders[8].ColorIndex := -4105;
{Hиз}
xlVariant.Selection.Borders[9].LineStyle := 1;
xlVariant.Selection.Borders[9].Weight := 2;
xlVariant.Selection.Borders[9].ColorIndex := -4105;
{Правое}
xlVariant.Selection.Borders[10].LineStyle := 1;
xlVariant.Selection.Borders[10].Weight := 2;
xlVariant.Selection.Borders[10].ColorIndex := -4105;
{Вертикаль внутри}
xlVariant.Selection.Borders[11].LineStyle := 1;
xlVariant.Selection.Borders[11].Weight := 2;
xlVariant.Selection.Borders[11].ColorIndex := -4105;

---

← →
Ekaterina ©   (2002-08-15 13:31) [6]

Рисуем сетку:
procedure TForm3.Button1Click(Sender: TObject);
var IR:Range;
begin
IDispatch(IR):=ExcelApplication1.Selection[0];
IR.Borders.Item[xlEdgeBottom].LineStyle:=xlContinuous;
IR.Borders.Item[xlEdgeLeft].LineStyle:=xlContinuous;
IR.Borders.Item[xlEdgeRight].LineStyle:=xlContinuous;
IR.Borders.Item[xlEdgeTop].LineStyle:=xlContinuous;
if IR.Rows.Count>1 then IR.Borders.Item[xlInsideHorizontal].LineStyle:=xlContinuous;
if IR.Columns.Count>1 then IR.Borders.Item[xlInsideVertical].LineStyle:=xlContinuous;end;
цвет шрифта: IR.Font.ColorIndex:=5 или IR.Font.Color:=$FF0000(синий)

---

← →
Hawk2   (2002-08-15 14:19) [7]

СПАСИБО ВСЕМ!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c