Сообщение при форматировании области в Excel

← →
Jony © (2002-09-11 13:15) [0]

При программном форматировании области (Range) в Excel Практически по каждой строчке кода при установке параметров границ области выдает сообщение:

(Warning) ... Constsnt expression violates subrange bounds.

Вот часть кода:

var ISheet: Excel2000.ExcelWorksheet; IRange: Excel2000.Range; begin ISheet := IWorkbook.Worksheets.Item["Лист1"] as Excel2000.ExcelWorksheet; IRange := ISheet.Range["A4:G15"), EmptyParam]; with IRange do begin Borders.item[xlDiagonalDown].LineStyle := xlNone; Borders.item[xlDiagonalUp].LineStyle := xlNone; With Borders.item[xlEdgeLeft] do begin LineStyle := xlContinuous; Weight := xlMedium; ColorIndex := xlAutomatic; End; ... end; end;

По выделенным строкам и проходит это сообщение. Хотя программа работает нормально и форматирование выполняет правильно.
Почему проходит это сообщение и как от него избавиться?

← →
AFrolov © (2002-09-11 13:29) [1]

ISheet.Application. DisplayAlerts:=False;

← →
Jony © (2002-09-11 14:21) [2]

> AFrolov
Требует еще какие-то параметры в квадратных скобках после DisplayAlerts. А попытка поставить туда что-то от фонаря ситуации не меняет.

← →
Рыжик © (2002-09-11 14:43) [3]

> AFrolov © (11.09.02 13:29)

Малость не то. Речь идёт о сообщении компилятора. DisplayAlerts тут не при чём.

> Jony © (11.09.02 13:15)

У меня такого не возникает. Может быть это из-за использования with. Попробуй навести мышкой в Design-time на Borders в выделенных строчках и посмотри, что за Borders он рассматривает. Должно быть prop Range.Borders:Borders. А вообще-то это сообщение возникает, когда константа выходит за границы допустимых значений, чего в данном примере вроде не наблюдается.

Попробуй так
Borders.item[xlDiagonalDown].LineStyle := OleVariant(xlNone);

> id_privin
Большое спасибо! OleVariant помогло.

Сообщение при форматировании области в Excel Найти похожие ветки