Microsoft 365のExcel v16.71、Windows版とmacOS版のソースコードが共通化されたというふれ込みではあるものの、実はけっこうフォーム部分が違うし、VBのマクロエディタで日本語が記入できないとか、互換性のない関数（Mac上で動作しないENCODEURL、Switch,IFS、FILTERXML、WEBSERVICEなどの関数）の存在など、いろいろ勘弁してほしい出来です。
しばらくはNumbersだけで用が済んでいたのですが、ここのところWindows版のExcelの講座なども行っていたので、併せてmacOS版のExcelについても追加調査。細かい点のチェックを行っていました。
そんなExcelでアドインのオンラインストアからQRコード作成用アドインを探してみたところ、フリーなものは存在していないようです。
Cocoaの機能を利用すれば、割とすぐにできてしまう程度のQRコード。わざわざアドインの力を利用する必要などなかったのです。AppleScriptでQRコードを生成して、Excelのワークシートに差し込めばよいだけです。
ところが、ひさしぶりにExcelのScriptを引っ張り出してきて、昔書いた「Excelに指定の画像を配置する」Scriptを実行してみたところ、エラーで動きません。
ワークシート上にshapeを作成できるのに、そのshapeに指定パスの画像を割り当てる処理でエラーになります。
そんな時、「出来の悪いプログラマは、POSIX pathで誤魔化して実装する」という経験則が思い出されました。
目を閉じると、AppleのKeynoteで一時期行われていた、画像配置コマンドにPOSIX pathを要求していたアレな実装であるとか（あれはひどかった）、いまだにアレであり続けているAdobe Acrobat DistillerのdistillコマンドがPOSIX pathを要求する件であるとか（file pathって書いてあるのに、aliasじゃなくてPOSIX pathを要求するという地雷仕様）、枚挙にいとまがありません。
そんなわけで、普通に書いても通らなかったのでパスをPOSIX pathで与えてみたところ、見事（？）配置されました。
| AppleScript名：画像をワークシート上に配置.scpt |
| set anImagePath to choose file set anImagePOSIX to POSIX path of anImagePath tell application "Microsoft Excel" set cwb to workbook 1 tell cwb tell worksheet 1 set aPicShape to make new shape at the beginning set width of aPicShape to 312 set height of aPicShape to 312 user picture of aPicShape picture file anImagePOSIX end tell end tell end tell |
