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

[Sharmon]

Помогите советом.
Весь инет облазил. Не могу найти ответ.

Выгружаю данные из Delphi в таблицу 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;

Но не работает.

Прочитал всю книгу Корнякова "Программирование документов и приложений MS Office в Delphi".
Разобрано все, кроме программирования "элементов управления".

[volod3000]

var
F:OleVariant;

F:=Excel.ActiveWorkbook.Sheets.Item[1].Shapes.Jtem('Флажок 1').OLEFormat.Object;
F.Value:=True;

[Sharmon]

Что-то не работает

Пишу так (применительно к моему коду):

 F:=ExcelApp.Workbook.Sheets.Item[1].Shapes.Item 'CheckBox9').OLEFormat.Object;
 F.Value:=True;

Вылетает с ошибкой.

[Leo08]

Вроде в Excel CheckBox так и называется "флажок", а не как в Delphi (Checkbox)

[Sharmon]

Я не разобрался. В экселе 2 типа флажков. На панели инструментов "Формы" и на панели "Элементы управления".
У меня в документе используются из "Элементы управления".
Соответственно при наведении на него курсора, в поле где адрес ячейки высвечивается "CheckBox1", "CheckBox2" и т.д.
Подозреваю, что код, приведенный во втором посте применителен для флажков на панели "Формы".

Может у кого есть рабочий пример, менящий флажок из делфи в таблице Excel?
Был бы очень признателен artsoft1(собака)mail.ru

[volod3000]

http://www.djpate.freeserve.co.uk/AutoExcl.htm

[Sharmon]

Там описано все то, что я и так уже знаю

[volod3000]

Сообщение от Sharmon

Вылетает с ошибкой.

Какая ошибка ?

[Sharmon]

Project prog.exe raised exception calss OleError with message 'Method Sheets' not supported by automation object

[Sharmon]

Подсказали следующий код:

var 
    exSheet, Chb, Obj: Variant;
    Cnt: Integer;
begin
 ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Visible := True;
 Workbook := ExcelApp.WorkBooks.Open('doc.xls');
 ExSheet:= Workbook.WorkSheets[1];
 
 Chb := Unassigned;
 Cnt := ExSheet.OleObjects.Count;

 for i:=1 to Cnt do begin
    Obj := exSheet.OleObjects[i];
    if Obj.Name = 'CheckBox9' then begin
       if Chb.Object.Value then
          ShowMessage('Начальное состояние: чекбокс выбран.')
       else
          ShowMessage('Начальное состояние: чекбокс сброшен.')  ;
      // Меняем флаг
      Obj.Object.Value := not Obj.Object.Value;
      Break;
    end;
  end;

Но почему-то у меня всегда значение Chb.Object.Value равно true, независимо от
того, установлен чек-бок в экселе или нет.
Что-то все же не так делаю.
Хотя чек-боксы находит верно. Т.е. "обход" элементов управления в экселе работает.
Неверно обращение к значению элементов.