Excel 現在のシート上に存在しているpictureをすべて削除する

Excelでオープンしている最前面の書類の現在表示中のシート上に配置されているpicture（画像）をすべて削除するAppleScriptです。

pictureを大量に配置するScriptの後始末をするために作成したものです（書き捨てレベル）。

数万セルのデータを取得して、ふたたび書き戻すような処理を行っても数秒。セルのデータのI/Oが超高速なExcelですが、画像などのオブジェクト操作は時間がかかり、本Scriptで900個程度のpictureオブジェクト（画像）を削除すると、それなりに待たされます。しかも、ignoring responsesで非同期実行しても待たされます。

▲実行前

▲実行後

AppleScript名：現在のシート上に存在しているpictureをすべて削除する.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/12/07
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

tell application "Microsoft Excel"
　　tell active workbook
　　　　tell active sheet
　　　　　　ignoring application responses
　　　　　　　　delete every picture
　　　　　　end ignoring
　　　　end tell
　　end tell
end tell