var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
var
  Range: OleVariant;
begin
   Range := E.Range['A1:A1'];
   // Изменить цвет фона
   Range.Comment.Shape.Fill.ForeColor.RGB := RGB(255, 0, 0);
   // Вставить картинку (растягивается на весь комментарий)
   Range.Comment.Shape.Fill.UserPicture('d:\01.bmp');
end;

var
  E: OleVariant;

// Очистка комментария к ячейки
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Cells[1, 1].ClearComments;
end;

// Очистка комментария к диапазону ячеек
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Range['A1:D4'].ClearComments;
end;

var
  E: OleVariant;

// Очистка примечания к ячейки
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Cells[1, 1].ClearNotes;
end;

// Очистка примечания к диапазону ячеек
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Range['A1:D4'].ClearNotes;
end;

var
  E: OleVariant;

// Очистка форматирования в ячейке
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Cells[1, 1].ClearFormats;
end;

// Очистка форматирования в диапазоне ячеек
procedure TForm1.Button1Click(Sender: TObject);
begin
   E.Range['A1:D4'].ClearFormats;
end;

var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E{.ActiveWorkBook}.WorkSheets[1].Cells[1, 1].PrintPreview;
end;

// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
begin
   E{.ActiveWorkBook}.WorkSheets[1].Range['A1:D4'].PrintPreview;
end;

// Способ второй
procedure TForm1.Button3Click(Sender: TObject);
begin
   E{.ActiveWorkBook}.WorkSheets[1].PageSetup.PrintArea := '$A$1:$D$10';
   // Удалить область печати можно присвоив пустую строку
   // ASheet.PageSetup.PrintArea := '';
   E.WorkSheets[1].PrintPreview;
end;

// Способ первый
var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWorkBook.WorkSheets[1].Cells[1, 1].Value := 'ля-ля-ля';
end;

// Способ второй
var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWorkBook.WorkSheets[1].Range['A1'].Value := 'ля-ля-ля';
end;

var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWorkBook.WorkSheets[1].Range['A1;B2;C3'] := 'ля-ля-ля';
end;

var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Объединение нескольких ячеек в строке
   E.ActiveWorkBook.WorkSheets[1].Range['A1:D1'].MergeCells := True;

   // Объединение нескольких ячеек в нескольких строках
   E.ActiveWorkBook.WorkSheets[1].Range['A1:D1;A2:B2'].MergeCells := True;

   // Объединение нескольких ячеек в столбце
   E.ActiveWorkBook.WorkSheets[1].Range['A1:A4'].MergeCells := True;

   // Объединение нескольких ячеек в нескольких столбцах
   E.ActiveWorkBook.WorkSheets[1].Range['A1:A4;B1:B2'].MergeCells := True;   
   
   // Объединение нескольких ячеек в нескольких строках и столбцах
   E.ActiveWorkBook.WorkSheets[1].Range['A1:D4'].MergeCells := True;
end;

var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
var
  Cell1, Cell2: OleVariant;
begin
   Cell1 := E.ActiveWorkBook.WorkSheets[1].Cells[1,1];
   Cell2 := E.ActiveWorkBook.WorkSheets[1].Cells[4,4];
   E.ActiveWorkBook.WorkSheets[1].Range[Cell1, Cell2].MergeCells := True;
end;