喫茶XRAY [Mr.XRAY掲示板]

http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201706/17060002.txt

そう言えばそんなのがありましたね．
個人的にはウザイですけど．

// TExcelApplication

procedure TplExcelFormEx1.Button7Click(Sender: TObject);
var
  ARange   : ExcelRange;
  LComment : Comment;
begin
  ARange := xlfExcelSheet.Range['B2', 'B2'];

  LComment := ARange.AddComment('これはコメントです');
  LComment.Shape.AutoShapeType := msoShape8pointStar;
end;

// CreateOleVariantで生成したエクセル

procedure TForm1.Button1Click(Sender: TObject);
var
  LComment : OleVariant;
begin
  LComment := WorkSheet.Cells[4,2].AddComment('これはコメントです');
  LComment.Shape.AutoShapeType := msoShape8pointStar;  // =$50
end;

動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) + Excel 2010
           Excel2000.pas と Office2000.pasを使用

参考にした記事は以下，
"エクセル VBA コメント" で検索．VBA の方がコード例が多いので．

https://www.moug.net/tech/exvba/0050120.html