Как программно изменить CheckBox в файле Excel

ExcelApp := CreateOleObject('Excel.Application');
Workbook := ExcelApp.WorkBooks.Open('aaa.xls',False);
// Запись значения в ячейку
ExcelApp.Range['L9','L9'].Value:=NomStr.Text;
 
Как менять CheckBox1 (который в Excel)?
По интуиции пробовал: 
ExcelApp.CheckBox1.value:=true;
ExcelApp.CheckBox1.Enabled:=true;

procedure TForm1.Button1Click(Sender: TObject);
const
  //Имя файла рабочей книги Excel.
  Fn = 'Книга1.xls';
  //Имя чекбокса на листе рабочей книги Excel.
  chbName = 'CheckBox1';
var
  exApp, exBook, exSheet, Chb, Obj : Variant;
  FileName : String;
  i, Cnt : Integer;
begin
  //Полное имя файла рабочей книги. - Предполагается, что этот файл лежит
  //в той же папке, в которой расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
 
  //Ищем чекбокс на листе.
  Chb := Unassigned;
  Cnt := exSheet.OleObjects.Count;
  for i := 1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = chbName then begin
      Chb := Obj;
      Break;
    end;
  end;
  if TVarData(Chb).VDispatch = nil then begin
    ShowMessage('Чекбокс на листе не найден. Действие отменено.');
    Exit;
  end;
 
  ///Проверяем состояние чекбокса.
  if Chb.Object.Value then
    ShowMessage('Начальное состояние: чекбокс выбран.')
  else
    ShowMessage('Начальное состояние: чекбокс сброшен.')
  ;
  //Изменяем состояние чекбокса на противоположное.
  Chb.Object.Value := not Chb.Object.Value;
  ShowMessage('Теперь состояние чекбокса изменено.');
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Имя файла рабочей книги Excel.
  Fn = 'Книга1.xls';
  //Имя чекбокса на листе рабочей книги Excel.
  chbName = 'CheckBox1';
var
  exApp, exBook, exSheet, Chb, Obj : Variant;
  FileName : String;
  i, Cnt : Integer;
  ChbState : Boolean;
begin
  //Полное имя файла рабочей книги. - Предполагается, что этот файл лежит
  //в той же папке, в которой расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
 
  //Ищем чекбокс на листе.
  Chb := Unassigned;
  Cnt := exSheet.OleObjects.Count;
  for i := 1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = chbName then begin
      Chb := Obj;
      Break;
    end;
  end;
  if TVarData(Chb).VDispatch = nil then begin
    ShowMessage('Чекбокс на листе не найден. Действие отменено.');
    Exit;
  end;
 
  ChbState := Chb.Object.Value;
  //Проверяем состояние чекбокса.
  if ChbState then
    ShowMessage('Начальное состояние: чекбокс выбран.')
  else
    ShowMessage('Начальное состояние: чекбокс сброшен.')
  ;
  //Изменяем состояние чекбокса на противоположное.
  Chb.Object.Value := not ChbState;
 
  ShowMessage('Теперь состояние чекбокса изменено.');
 
  //Сохранение раб. книги.
  exBook.Save;
end;

uses
  ComObj;
 
var
  exApp, exBook, exSheet, Chb, Obj : Variant;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Имя файла рабочей книги Excel.
  Fn = 'Книга1.xls';
  //Имя чекбокса на листе рабочей книги Excel.
  chbName = 'CheckBox1';
var
  //exApp, exBook, exSheet, Chb, Obj : Variant;
  FileName : String;
  i, Cnt : Integer;
  ChbState : Boolean;
begin
  //Полное имя файла рабочей книги. - Предполагается, что этот файл лежит
  //в той же папке, в которой расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
 
  //Ищем чекбокс на листе.
  Chb := Unassigned;
  Cnt := exSheet.OleObjects.Count;
  for i := 1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = chbName then begin
      Chb := Obj;
      Break;
    end;
  end;
  if TVarData(Chb).VDispatch = nil then begin
    ShowMessage('Чекбокс на листе не найден. Действие отменено.');
    Exit;
  end;
 
  ChbState := Chb.Object.Value;
  //Проверяем состояние чекбокса.
  if ChbState then
    ShowMessage('Начальное состояние: чекбокс выбран.')
  else
    ShowMessage('Начальное состояние: чекбокс сброшен.')
  ;
  //Изменяем состояние чекбокса на противоположное.
  Chb.Object.Value := not ChbState;
 
  ShowMessage('Теперь состояние чекбокса изменено.');
 
  //Сохранение раб. книги.
  //exBook.Save;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Obj := Unassigned;
  Chb := Unassigned;
  exSheet := Unassigned;
  exBook := Unassigned;
  exApp := Unassigned;
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Имя файла рабочей книги Excel.
  Fn = 'Книга1.xls';
  //Имя чекбокса на листе рабочей книги Excel.
  chbName = 'CheckBox1';
var
  exApp, exBook, exSheet, exCell, Chb, Obj : Variant;
  FileName : String;
  i, Cnt : Integer;
  ChbState : Boolean;
begin
  //Полное имя файла рабочей книги. - Предполагается, что этот файл лежит
  //в той же папке, в которой расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
 
  //Ищем чекбокс на листе.
  Chb := Unassigned;
  Cnt := exSheet.OleObjects.Count;
  for i := 1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = chbName then begin
      Chb := Obj;
      Break;
    end;
  end;
  if TVarData(Chb).VDispatch = nil then begin
    ShowMessage('Чекбокс на листе не найден. Действие отменено.');
    Exit;
  end;
 
  ChbState := Chb.Object.Value;
  //Проверяем состояние чекбокса.
  if ChbState then
    ShowMessage('Начальное состояние: чекбокс выбран.')
  else
    ShowMessage('Начальное состояние: чекбокс сброшен.')
  ;
  //Выбираем ячейку.
  exCell := exSheet.Cells[1, 1];
  //Записываем в ячейку значение, которое в дальнейшем поменяет значение чекбокса.
  if ChbState then exCell.Value := '0'
  else exCell.Value := '1';
  //Связываем чекбокс с ячейкой.
  Chb.Object.LinkedCell := exCell.Address;
  //Отключаем ЧекБокс от ячейки.
  Chb.Object.LinkedCell := '';
 
  ShowMessage('Теперь состояние чекбокса изменено.');
 
  //Сохранение раб. книги.
  //exBook.Save;
end;

uses
  ComObj;
 
const
  //Имя чекбокса на листе рабочей книги Excel.
  chbName = 'CheckBox1';
var
  exApp, exBook, exSheet, exCell, Chb, Obj : Variant;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Имя файла рабочей книги Excel.
  Fn = 'Книга1.xls';
var
  //exApp, exBook, exSheet, Chb, Obj : Variant;
  FileName : String;
  i, Cnt : Integer;
  ChbState : Boolean;
begin
  //Полное имя файла рабочей книги. - Предполагается, что этот файл лежит
  //в той же папке, в которой расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
 
  //Ищем чекбокс на листе.
  Chb := Unassigned;
  Cnt := exSheet.OleObjects.Count;
  for i := 1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = chbName then begin
      Chb := Obj;
      Break;
    end;
  end;
  if TVarData(Chb).VDispatch = nil then begin
    ShowMessage('Чекбокс на листе не найден. Действие отменено.');
    Exit;
  end;
 
  ChbState := Chb.Object.Value;
  //Проверяем состояние чекбокса.
  if ChbState then
    ShowMessage('Начальное состояние: чекбокс выбран.')
  else
    ShowMessage('Начальное состояние: чекбокс сброшен.')
  ;
 
  //(*
  //Выбираем ячейку.
  exCell := exSheet.Cells[1, 1];
  //Записываем в ячейку значение, которое в дальнейшем поменяет значение чекбокса.
  if ChbState then exCell.Value := '0'
  else exCell.Value := '1';
  //Связываем чекбокс с ячейкой.
  Chb.Object.LinkedCell := exCell.Address;
  //Отключаем ЧекБокс от ячейки.
  Chb.Object.LinkedCell := '';
 
  //(*
  //Проверяем состояние чекбокса.
  if ChbState = Chb.Object.Value then
    ShowMessage('Начальное состояние не изменилось.')
  else
    ShowMessage('Начальное состояние изменено.')
  ;
  //*)
 
  //Сохранение раб. книги.
  //exBook.Save;
end;
 
//Изменить.
procedure TForm1.Button2Click(Sender: TObject);
var
  exCell : Variant;
  ChbState : Boolean;
begin
  ChbState := Chb.Object.Value;
  //Выбираем ячейку.
  exCell := exSheet.Cells[1, 1];
  //Записываем в ячейку значение, которое в дальнейшем поменяет значение чекбокса.
  if ChbState then exCell.Value := '0'
  else exCell.Value := '1';
  //Связываем чекбокс с ячейкой.
  Chb.Object.LinkedCell := exCell.Address;
  //Отключаем ЧекБокс от ячейки.
  Chb.Object.LinkedCell := '';
end;
 
//Проверить.
procedure TForm1.Button3Click(Sender: TObject);
var
  ChbState : Boolean;
begin
  ChbState := Chb.Object.Value;
  //Проверяем состояние чекбокса.
  if ChbState then
    ShowMessage('Чекбокс выбран.')
  else
    ShowMessage('Чекбокс сброшен.')
  ;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Obj := Unassigned;
  Chb := Unassigned;
  exCell := Unassigned;
  exSheet := Unassigned;
  exBook := Unassigned;
  exApp := Unassigned;
end;

uses
  ComObj;
 
var
  exApp, exBook, exSheet, Obj : Variant;
 
//Открыть книгу Excel.
procedure TForm1.Button1Click(Sender: TObject);
var
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      , mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(Od.FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
end;
 
//Собрать сведения о всех ЧекБоксах из коллекции CheckBoxes.
procedure TForm1.Button2Click(Sender: TObject);
var
  i, Cnt : Integer;
begin
  Cnt := exSheet.CheckBoxes.Count;
  Memo1.Lines.Add('Всего элементов в коллекции CheckBoxes: ' + IntToStr(Cnt));
  Memo1.Lines.Add('Перечень:');
  for i := 1 to Cnt do begin
    Obj := exSheet.CheckBoxes[i];
    Memo1.Lines.Add(
      IntToStr(i) + ': Name = "' + Obj.Name + '", ' + #9 + 'Text = "' + Obj.Text + '",'
       + #9 + 'Value = "' + IntToStr(Obj.Value) + '".'
    );
  end;
end;
 
//Собрать сведения о всех OLE объектах, которые внедрены на лист Excel.
procedure TForm1.Button3Click(Sender: TObject);
var
  i, Cnt : Integer;
  S : String;
begin
  Cnt := exSheet.OLEObjects.Count;
  Memo1.Lines.Add('Всего OLE объектов: ' + IntToStr(Cnt));
  Memo1.Lines.Add('Перечень:');
  for i := 1 to Cnt do begin
    Obj := exSheet.OLEObjects[i];
    S := IntToStr(i) + ': Name = "' + Obj.Name + '",'
      + #9 + 'Object.Caption = "' + Obj.Object.Caption + '"'
    ;
    try
      S := S + ',' + #9 + 'Object.Value = "' + IntToStr(Obj.Object.Value) + '".'
    finally
    end;
    Memo1.Lines.Add(S);
  end;
end;
 
//Отключиться от интерфейсов OLE-автоматизации.
procedure TForm1.Button4Click(Sender: TObject);
begin
  Obj := Unassigned;
  exSheet := Unassigned;
  exBook := Unassigned;
  exApp := Unassigned;
end;

uses
  ComObj;
 
var
  exApp, exBook, exSheet, exObj : Variant;
 
//Определение номера строки, на которой расположена горизонтальная ось объекта.
function GetRowNum(const aExSheet, aExObj : Variant) : Integer;
var
  Height, Y : Extended;
begin
  Result := 0;
  Height := 0;
  //Вертикальная координата горизонтальной оси объекта, выраженная в пунктах (Points).
  Y := aExObj.Top + aExObj.Height / 2;
  repeat
    Result := Result + 1;
    Height := Height + aExSheet.Rows[Result].Height;
  until Height >= Y;
end;
 
//Определение номера столбца, на котором расположен левый край объекта.
function GetColNum(const aExSheet, aExObj : Variant) : Integer;
var
  Width, X : Extended;
begin
  Result := 0;
  Width := 0;
  //Горизонтальная координата левого края объекта, выраженная в пунктах (Points).
  X := aExObj.Left;
  repeat
    Result := Result + 1;
    Width := Width + aExSheet.Columns[Result].Width;
  until Width >= X;
end;
 
//Открыть книгу Excel.
procedure TForm1.Button1Click(Sender: TObject);
var
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      , mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(Od.FileName);
 
  //Ссылка на первый лист в книге.
  exSheet := exBook.WorkSheets[1];
end;
 
//Собрать сведения о всех ЧекБоксах из коллекции CheckBoxes.
procedure TForm1.Button2Click(Sender: TObject);
var
  i, Cnt, Row, Col : Integer;
begin
  Cnt := exSheet.CheckBoxes.Count;
  Memo1.Lines.Add('--------------------------------------------------');
  Memo1.Lines.Add('Всего элементов в коллекции CheckBoxes: ' + IntToStr(Cnt));
  Memo1.Lines.Add('Перечень:');
  for i := 1 to Cnt do begin
    exObj := exSheet.CheckBoxes[i];
    Row := GetRowNum(exSheet, exObj);
    Col := GetColNum(exSheet, exObj);
    Memo1.Lines.Add(IntToStr(i) + ':');
    Memo1.Lines.Add('  Name = "' + exObj.Name + '"');
    Memo1.Lines.Add('  Text = "' + exObj.Text + '"');
    Memo1.Lines.Add('  Value = "' + IntToStr(exObj.Value) + '"');
    Memo1.Lines.Add('  Row = "' + IntToStr(Row) + '"');
    Memo1.Lines.Add('  Col = "' + IntToStr(Col) + '"');
  end;
end;
 
//Собрать сведения о всех OLE объектах, которые внедрены на лист Excel.
procedure TForm1.Button3Click(Sender: TObject);
var
  i, Cnt, Row, Col : Integer;
begin
  Cnt := exSheet.OLEObjects.Count;
  Memo1.Lines.Add('--------------------------------------------------');
  Memo1.Lines.Add('Всего OLE объектов: ' + IntToStr(Cnt));
  Memo1.Lines.Add('Перечень:');
  for i := 1 to Cnt do begin
    exObj := exSheet.OLEObjects[i];
    Row := GetRowNum(exSheet, exObj);
    Col := GetColNum(exSheet, exObj);
    Memo1.Lines.Add(IntToStr(i) + ':');
    Memo1.Lines.Add('  Name = "' + exObj.Name + '"');
    Memo1.Lines.Add('  Object.Caption = "' + exObj.Object.Caption + '"');
    try
      Memo1.Lines.Add('  Object.Value = "' + IntToStr(exObj.Object.Value) + '"');
    finally
    end;
    Memo1.Lines.Add('  Row = "' + IntToStr(Row) + '"');
    Memo1.Lines.Add('  Col = "' + IntToStr(Col) + '"');
  end;
end;
 
//Отключиться от интерфейсов OLE-автоматизации.
procedure TForm1.Button4Click(Sender: TObject);
begin
  exObj := Unassigned;
  exSheet := Unassigned;
  exBook := Unassigned;
  exApp := Unassigned;
end;