名前
題名
▼ 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 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link