新刊電子書籍「AppleScriptでたのしむ　レトロ・グラフィック　プログラム集」を刊行

電子書籍新刊「AppleScriptでたのしむ　レトロ・グラフィック　プログラム集」を刊行しました。全154ページ、サンプルAppleScriptアーカイブつき。
→ 販売ページ

1980年代や90年代の8/16ビットPCのBASICで描かせていた、三角関数による各種グラフィックスをAppleScriptで再現。ダイアログで表示するだけでなく、各種GUIアプリ（Keynote、Numbers、Pages、Excel、PowerPoint、Word、Pixelmator Pro）を操作して描画したり、画像書き出ししてAirDropでiOSデバイスに転送するようなサンプルを収録しています。

懐かしのレトロCGの世界を再現
時代を経て感じる郷愁とも異なるテイスト
その昔、十数分かけて描いた三角関数グラフ
１秒以下で終了 vs ６分で終了
最新環境で動くAppleScriptにBASICのプログラムを移植
アップルスクリプトは、構文色分け必須の、色で要素を見分ける環境
最低限の知識でAppleScriptによるグラフィックを
AppleScript書類内に、実行に必要なライブラリを同梱
筆者の関数計算ライブラリ「calcLibAS」内蔵関数
コラム　ポケコンエミュレータ“pockemul”

2章　早足で紹介するAppleScriptの世界

1994年から採用され続けている言語
GUIアプリを操作するために存在。搭載実行環境がとても多い
書き方は、アプリ内に存在する用語辞書を参照
本来の機能を利用するためにはシステム設定で許可する必要が
10.10以降でCocoaを直接呼べるようになったインタプリタ言語
GUI部品を直接操作してアプリを操作する強制操作機能が人気？
Web上のAPIを呼んでクラウド系の機能も利用
AS自体で予約語と機能を記述するライブラリ機能
コラム　AppleScriptの世界の全体像　OS機能の最深部からGUIそのものの操作まで

3章　AppleScriptでグラフィックスを扱う

Cocoaの機能を呼び出してメモリ上で画像を作成
NSAlertの上にNSImageViewを作成しグラフィック表示
Cocoaのグラフィックス座標系”
主要なアプリケーションの座標系”
画像ファイルに書き出せば”
他のアプリにコピー＆ペースト”
当時は存在していなかった透過画像”
パラメータを変えると動作が変わる”
コラム GUIアプリごとの応答速度の違い

4章　レトロ・グラフィックスプログラム集

スクリプトエディタでオープンして実行するだけ
必要なライブラリはバンドル内にすべて格納
掲載リストはグラフィックス描画にかかわる箇所のみ
How to use/ダイアログ表示AppleScript
How to use/ファイル出力AppleScript
How to use/ファイル出力＋AirDrop AppleScript
How to use/クリップボード転送AppleScript
How to use/各種GUIアプリ操作AppleScript
OS標準搭載の13の実行環境およびサードパーティの数十の実行環境

線画テスト
円画テスト①
円画テスト②
サイクロイド曲線
バラ曲線
パスカルの蝸牛形
リサージュ曲線
ダイヤモンドパターン
アルキメデスの螺旋
メキシカンハット①
メキシカンハット②
メキシカンハット③
メキシカンハット④
コラムマシンごとの実行速度の違い

PowerPointを操作するAppleScriptをScript Menuに入れて実行すると動作が完結しない問題

Posted on 8月 4, 2023 by Takaaki Naganoya

日常的に利用するAppleScriptは、macOS標準搭載のScript Menuに入れて使用しています。エンドユーザーに「Script Editor上で実行しろ」とかいうのは無茶ですし、「全部Appletに書き出してアプリケーションとして実行」とかいうのも、セキュリティ的な縛りが増えた環境においては、無茶な話です。だいたい、日常的に利用している数百本のAppleScriptを全部Appletに書き出すというのも（自動処理でできるけど）無茶な話です。

そのため、日常的に利用するAppleScriptは、個人的にScript Menuから実行していますし、Script Menuを「最終防衛線」として定義し、AppleがOSアップデートのたびに作成するバグに対して文句を言っています。Script Menu上で動かなかったら問題視しています。

さて、そこに新たな頭痛の種が舞い込んできました。ここ数日いじくりまわしているPowerPointです。

いつものように、Script Menuに操作系のScriptを入れて実行すれば、それでおしまい！　というわけには行きませんでした。PowerPointの書類からTOCつきのPDFを書き出すAppleScriptを書いて、Script Menuに入れたら実行できなくなりました（途中までは実行できるのに……）。Script Editor/Script Debugger上では問題なく実行できるのに、です。

この場合、Script Menuがランタイム環境（実行環境）になるわけで、各種セキュリティ設定もScript Menuに対して行っています。AppleScript Appletを数百個自動生成できたとしても、数百個のAppletに対してすべてセキュリティ設定を行うのは現実的な話ではありません。Script Menuに対して権限設定をまとめておけたほうが便利です。

そのため、Script Menuには「オートメーション」「フルディスクアクセス」「アクセシビリティ」など考えられる一通りのセキュリティ設定が行われているわけですが、先のPowerPointを操作するAppleScriptが、Script Menu上からは実行が完了しませんでした。

どうもファイルアクセス権限に関する問題（Script Editor上から実行しても、初回はダイアログが出る）のようなのですが、この権限がScript Menuから実行すると取得できないようで…

この問題をAppleに報告すべきなのか、Microsoftに報告すべきなのか、現状だと判断がつかないところです（たらいまわしにされる予感）。

PowerPointなんか使う方が悪い、という話までありそうな、、、、

PowerPoint書類の各スライドのタイトルを取得

Posted on 8月 3, 2023 by Takaaki Naganoya

PowerPoint書類（presentation）の各スライドのタイトルを取得するAppleScriptです。

正確にいえば、タイトルを取得するかもしれないAppleScriptです。本Scriptの実行時にはPowerPointで何らかのPPTX書類をオープンしていることを期待しています。

PowerPointをこづき回してみると、各スライドのタイトルを保持しているプロパティとかいったものが「ない」ことに気づきます。

ではどうやって取り出すかといえば、

（1）slideのplace holderを取得する
（2）place holder内にtext frameが存在しているかを確認
（3）text frameが存在している場合には、内部にアクセスして文字を取り出す

という手順になるようです。

ただし、place holderにアクセスする都合上、

スライドのレイアウトの種類によってはplace holderが存在していないものもあるため、place holderの存在確認から行うべきかもしれません。

また、slide内に複数のplace holderが存在する場合に、どれがtitleに該当するのかを調べる必要があるとか（座標とか、文字サイズとかを頼りに推測）、いろいろと処理が破綻しそうな「例外条件」が多数存在していそうです。

AppleScript名：各slideのタイトル文字列を取得 v2.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2023/08/03
—
–　　Copyright © 2023 Piyomaru Software, All Rights Reserved
—

set tList to getEveryPPTSlideTItles() of me
–> {"Title", "1章", "Slide1", "Slide2", "2章", "Slide3", "Slide4"}

on getEveryPPTSlideTItles()
　　set tList to {}
　　
　　tell application "Microsoft PowerPoint"
　　　　tell active presentation
　　　　　　set sList to every slide
　　　　　　
　　　　　　repeat with i in sList
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　tell j
　　　　　　　　　　
　　　　　　　　　　set plaList to every place holder
　　　　　　　　　　set aPla to contents of first item of plaList
　　　　　　　　　　set hText to (has text of text frame of aPla) as boolean
　　　　　　　　　　
　　　　　　　　　　if hText = true then
　　　　　　　　　　　　set hTextR to (content of text range of text frame of aPla) as string
　　　　　　　　　　else
　　　　　　　　　　　　set hTextR to ""
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　set the end of tList to hTextR
　　　　　　end repeat
　　　　　　
　　　　　　return tList
　　　　　　
　　　　end tell
　　end tell
end getEveryPPTSlideTItles

★Click Here to Open This Script　

PowerPointが扱うファイルパス形式が支離滅裂な件

Posted on 8月 2, 2023 by Takaaki Naganoya

いろいろ調べてみたら、PowerPointが扱うファイルパス形式に整合性がまったくないことがわかりました。なんなんでしょう、これは。

ファイルのオープン時：alias（HFS path）

これは、とくに問題はありません。最低限のラインはクリアしているといってよいでしょう。

PDF書き出し時：HFS pathのテキスト

fileオブジェクトではなくHFS pathの文字列です。ここでかなり「おかしなプログラムだな」という感想を抱きます。こんなおかしなデータを要求するのはPowerPointぐらいだと思いますよ？

PPTX書類の新規保存時：HFS pathのテキスト

PDF書き出しもPPTX書類の保存も、同じく「save」コマンドで行うので、仕様が同じなのも納得ですが、通常書類のsaveにこれでは相当変わった仕様にしか見えません。

書類のフルパス情報：POSIX path

これは、致命的におかしな挙動であり、呆れるほどおかしな仕様です。担当者が正気なのか疑わしいレベルです。Office 2011のPowerPointでpresentation（書類）のfull name（フルパス情報）を取得してみたところ、HFS path文字列が返ってきたという調査結果が残っていました。

いま、バージョン16.75のPowerPointのpresentation（書類）のfull name（フルパス情報）を取得すると、POSIX pathが返ってきます。

▲Office 2011のPowerPointのパス情報の記述

▲バージョン16.75のPowerPointのパス情報の記述

AppleScript用語辞書上の記載内容にはたいして変化はないのですが、こんな頭のおかしな状態になっているとは思いませんでした。正直、PowerPointで何かまとまった処理を行おうとは思ったことが（それほど）なかったのですが、Keynoteで山のようにいろいろ強烈なScriptを書いているので、PowerPointでもいろいろできるのでは？　と、冗談半分で試してこの通りです。

まさか、ExcelとWordもこの調子なのでは？（＾ー＾；

AppleScript名：オープン中の最前面のPowerPoint書類のフルパスの文字列を取得.scpt

set a to getPPTpath() of me
–> "Cherry:Users:me:Documents:2013-MacUDingCFUD.ppt"–Office 2011
–> "/Users/me/Documents/AppleScript 13/PowerPoint/TESTプレゼンテーション1 .pptx"–Office 2019

–オープン中の最前面のPowerPoint書類のフルパスの文字列を取得
on getPPTpath()
　　tell application "Microsoft PowerPoint"
　　　　set pCount to count every presentation
　　　　if pCount = 0 then return false
　　　　tell active presentation
　　　　　　–Documentのフルパスを取得する
　　　　　　set aPath to full name
　　　　　　return aPath
　　　　end tell
　　end tell
end getPPTpath

★Click Here to Open This Script　

PowerPointの書類からTOCつきのPDFを書き出すAppleScriptを書いた際には、頭のおかしなPowerPoint 16.75が返してくるパス形式をサブルーチン側で吸収して処理するようにしました。ただ、将来的にこの頭のおかしな形式からまともな形式に戻してきたときに問題が発生するので、再変更に備えてもう少し準備しておいたほうがよいのかもしれません。

このPowerPointの担当者は、頭がおかしいです。

AppleScript名：オープン中のPowerPoint書類のパスをalias形式で取得.scpt

set pptPath to getPPTpath() of me
–> alias "Macintosh HD:Users:me:Documents:AppleScript 13:PowerPoint:TESTプレゼンテーション1 （Sectionなし）.pptx"

–オープン中の最前面のPowerPoint書類のフルパスの文字列を取得
on getPPTpath()
　　tell application "Microsoft PowerPoint"
　　　　set pCount to count every presentation
　　　　if pCount = 0 then return false
　　　　
　　　　tell active presentation
　　　　　　–Documentのフルパスを取得する
　　　　　　set aPath to full name
　　　　end tell
　　end tell
　　
　　set aFile to POSIX file aPath
　　set anAlias to aFile as alias
　　return anAlias
end getPPTpath

★Click Here to Open This Script　

PowerPointのスライドから各種情報を取得

Posted on 8月 2, 2023 by Takaaki Naganoya

KeynoteからPDF書き出しを行う際に、デフォルトの機能ではTOCも何もついていないのですが、AppleScriptからあらゆる手段を講じてTOCつきで書き出せるようにしています（新刊「Keynote Scripting Book with AppleScript」に掲載）。

一方、PowerPointではどうかといえば、sectionを作成し章構成を分けて、スライドを章ごとに折りたためるようになっています。PDF書き出し時にこのsectionが反映されるということはまったくなく、sectionを追加しようが書き出されたPDFはそのままです。

このsection内のインデント情報が取得できれば、それを元にTOCを作ってもよいのですが、残念ながらインデント情報は取り出せないようです。

ただ、処理に必要な最低限の情報が取れるので、Keynoteと同レベルのTOCつきPDFをAppleScriptで合成することは可能と思われます。

AppleScript名：各スライドから情報を取得.scpt

★Click Here to Open This Script　

各スライドのタイトルを取得しようとしたら、素直に取得できず……かといって取れなさそうでもないので、いろいろ調べてみたら、どうやら取得できたようです。

AppleScript名：各slideのタイトル文字列を取得.scpt

tell application "Microsoft PowerPoint"
　　tell active presentation
　　　　set sList to every slide
　　　　
　　　　repeat with i in sList
　　　　　　set j to contents of i
　　　　　　tell j
　　　　　　　　set sInd to section index
　　　　　　　　set sNum to section number
　　　　　　　　set myLayout to layout as string
　　　　　　　　log {sInd, sNum, myLayout}
　　　　　　　　
　　　　　　　　set plaList to every place holder
　　　　　　　　set aPla to contents of first item of plaList
　　　　　　　　set hText to (has text of text frame of aPla) as boolean
　　　　　　　　log hText
　　　　　　　　
　　　　　　　　if hText = true then
　　　　　　　　　　set hTextR to (content of text range of text frame of aPla) as string
　　　　　　　　　　log hTextR
　　　　　　　　end if
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

PowerPointで最前面の書類をPDF書き出し

Posted on 7月 29, 2023 by Takaaki Naganoya

よくある、Microsoft PowerPointで、オープン中の最前面の書類を指定のパスにPDFで書き出すAppleScriptです。M1 Mac mini＋macOS 13.5上で動作するMicrosoft PowerPointバージョン16.75で確認しています。

スクリプトエディタ上で動かしてみましたが、デスクトップ上にファイルを書き込もうとしたときに、初回のみPowerPointがデスクトップフォルダにアクセスしてよいか、OSが確認ダイアログを表示してきました。こういう動作はScriptからのコントロール時には困ります。自動処理を行う前にクリアしておきたい（あらかじめダイアログ表示＋認証を済ませておきたい）ところです。

▲PowerPointから書き出したPDF

Microsoft PowerPointのAppleScript用語辞書を確認してみたところ、「export」コマンドが存在しません。情報をいろいろ調べてみたところ「save as PDF」で指定パスにPDFを保存するようです。

さらに、こうした場合にsaveコマンドで指定するファイルパスは、fileオブジェクトで指し示しますが、PowerPointでは少々事情が異なるようでした。fileを指定すると、書き出されません。HFS形式のパスをテキストで指定する必要がありました。どうもこのあたり、ところどころバグめいた実装が散見されます。

Excelへの画像貼り込みScriptのように、POSIX pathでPDF書き出し先を指定してみましたが、こちらはPOSIX pathで指定しても書き出せませんでした。

AppleScript名：最前面の書類をPDF書き出し.scpt

set theOutputPath to ((path to desktop folder) as string) & (do shell script "uuidgen") & ".pdf"

tell application "Microsoft PowerPoint"
　　tell active presentation
　　　　save in theOutputPath as save as PDF
　　　　–保存先のファイルパスを文字列で指定する必要がある
　　　　–fileオブジェクトで指定すると書き出されない（バグのような挙動）
　　end tell
end tell

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

タグ: PowerPoint

新刊電子書籍「AppleScriptでたのしむ　レトロ・グラフィック　プログラム集」を刊行

目次

1章　レトロ・グラフィックスの世界

2章　早足で紹介するAppleScriptの世界

3章　AppleScriptでグラフィックスを扱う

4章　レトロ・グラフィックスプログラム集

PowerPointを操作するAppleScriptをScript Menuに入れて実行すると動作が完結しない問題

PowerPoint書類の各スライドのタイトルを取得

PowerPointが扱うファイルパス形式が支離滅裂な件

ファイルのオープン時：alias（HFS path）

PDF書き出し時：HFS pathのテキスト

PPTX書類の新規保存時：HFS pathのテキスト

書類のフルパス情報：POSIX path

PowerPointのスライドから各種情報を取得

PowerPointで最前面の書類をPDF書き出し

目次

1章 レトロ・グラフィックスの世界

2章 早足で紹介するAppleScriptの世界

3章 AppleScriptでグラフィックスを扱う

4章 レトロ・グラフィックスプログラム集

ファイルのオープン時：alias（HFS path）

PDF書き出し時：HFS pathのテキスト

PPTX書類の新規保存時：HFS pathのテキスト

書類のフルパス情報：POSIX path

1章　レトロ・グラフィックスの世界

2章　早足で紹介するAppleScriptの世界

3章　AppleScriptでグラフィックスを扱う

4章　レトロ・グラフィックスプログラム集