[fofka]

Вопрос такого плана. Установка размера шрифта.
У меня из Comboboxa берется размер шрифта при выгрузке в Excel.

PHP код:

var
  sh :TCaption;
  
 begin

  sh := Form6.ComboBox36.Text;

 Ex.ActiveWorkBook.WorkSheets[L1].Range['B22:B39'].Select;
  Ex.Selection.Font.Size:=sh;///---Размер шрифта
 begin
  for i:=0 to Memo1.Lines.Count-1 do
 begin
  Ex.ActiveWorkBook.WorkSheets[L1].Cells[i+22, 2].value:= memo1.Lines[i];
end; 


Но при выгрузке выдает ошибку "Метод Select из класса Range завершен неверно". Подскажите в чем у меня ошибка?

[Snake22]

удалено =) хрень несу

[Ildar-tsr]

Код:

Ex.Selection.Font.Size:=StrToFloat(sh)//попробуй так

[fofka]

Все дело в том, что у меня загружается шаблон ( из Excel). Лишние листы если не используются, удаляются. При этом меняется активный лист, и в этом ошибка.
Добавил одну строку, и все заработало.

PHP код:

var 
  sh :TCaption; 
   
 begin 
sh := Form6.ComboBox36.Text;

Ex.ActiveWorkBook.WorkSheets[1].Select;///Делаем активным лист и ошибка пропадает.

 Ex.ActiveWorkBook.WorkSheets[L1].Range['B22:B39'].Select; 
  Ex.Selection.Font.Size:=sh;///---Размер шрифта 
 begin 
  for i:=0 to Memo1.Lines.Count-1 do 
 begin 
  Ex.ActiveWorkBook.WorkSheets[L1].Cells[i+22, 2].value:= memo1.Lines[i]; 
end; 


Так что тема закрыта.