Проблема с Excel

[Absinthe]

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

[slesh]

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

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

[Absinthe]

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

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

[slesh]

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

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;

[Absinthe]

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