|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
(* excel_addcomment.applescript *) tell application "Microsoft Excel" tell range "A10" of active sheet set cmt to its Excel comment -- no error if nothing (dummy comment) set vis to visible of cmt --get any property , returns missing value if empty if vis is missing value then set cmt to add comment end if end tell tell cmt Excel comment text text "My comment" --overwrites, but omit 'over write'! set visible to true select its shape object -- to allow editing end tell end tell |