Проблема с Excel

Привет всем!..
Возникла проблема.
Нужно изменить значение checkbox в Excel из под Delphi

 

Вообще всё очень просто ) достаточно открыть через ComObject экселевский файл.
и выполнить команды:
ActiveSheet.Shapes("Check Box 1").Select
Selection.Value = True // поставить галочку
Selection.Value = False // снять

P.S. не нужно везде одно и тоже сообщение постить

 

Извиняюсь ..что так сделал
Спасибо за помощь!

...
Можно по-подробнее
Пожалуйста

 

примерно так делается:

Code:

uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
 XL : variant;
 x:integer;
begin
 XL := CreateOleObject('Excel.Application');
 XL.WorkBooks.Open('c:\Êíèãà1.xls');
 XL.Visible := true;

 for x:= 1 to XL.ActiveSheet.Shapes.Count do
 begin
  if XL.ActiveSheet.Shapes.Item(x).Name = 'Check Box 1' then
  begin
    XL.ActiveSheet.Shapes.Item(x).Select;
    XL.Selection.Value := false;
    break;
  end;
 end;
end;

 

Огромнейшее СПАСИБО!!!!!!!
За помощь!!!!
Я очень благодарен!!!!