Excel ЧаВо

Как добавить примечание к ячейке? Как удалить примечание? Как изменить атрибуты шрифта примечания?


Комментарий — это своеобразный объект 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



Содержание раздела