Как добавить примечание к ячейке? Как удалить примечание? Как изменить атрибуты шрифта примечания?
Комментарий — это своеобразный объект Shape, привязанный к определенному объекту Range.
Delphi:
// Добавление примечания
// Способ первый
ASheet.Range['A1', EmptyParam].AddComment('Note:'#10'Hello A1!'); // Способ второй
ASheet.Range['A2', EmptyParam].NoteText('Note:'#10'Hello A2!', EmptyParam, EmptyParam);
// Изменим атрибуты части текста примечания
// обращаясь к свойствам Shape.TextFrame.Characters,
// т.е. Comment - это некий объект Shape
with ASheet.Range['A1', EmptyParam].Comment.Shape.TextFrame.Characters( // если не указать длину, то от заданной позиции и до конца текста
7, EmptyParam) do begin
Font.Bold := False; Font.Color := clNavy; end;
// добавим третью строку к коментарию в A2
ASheet.Range['A2', EmptyParam].NoteText( ASheet.Range['A2', EmptyParam].NoteText(EmptyParam, EmptyParam, EmptyParam) + #10'Третяя строка', EmptyParam, EmptyParam);
// или так
ASheet.Range['A2', EmptyParam].Comment.Text( ASheet.Range['A2', EmptyParam].Comment.Text(EmptyParam, EmptyParam, EmptyParam) + #10'Третяя строка', EmptyParam, EmptyParam);
// можно показывать комментарий все время, как транспарант
ASheet.Range['A2', EmptyParam].Comment.Visible := True; // False
// теперь просто удалим комментарий
ASheet.Range['A1', EmptyParam].Comment.Delete;
// или так
ASheet.Range['A1', EmptyParam].ClearNotes;
Comment Property
AddComment Method
NoteText Method
ClearNotes Method
How to: Add, Delete, and Display Worksheet Comments
