新発売：Keynote Scripting Book with AppleScript

Posted on 7月 29 by Takaaki Naganoya

Piymaru Softwareによる電子書籍の82冊目、「Keynote Scripting Book with AppleScript」を発売しました。PDF 434ページ＋サンプルScript Zipアーカイブで構成されています。macOS標準装備のScript Menuに入れてKeynoteをコントロールするメニューScript集も添付しています。

→ 販売ページ

初級、中級、上級のScripting解説内容に加え、大量かつ強力なAppleScriptサンプルを掲載しています。これは、実際に筆者が自分のマシンにインストールして使っているものと同じものです。

実用編

　付録Script Menuスクリプトのインストール
　Script Menuスクリプトのインストール①
　Script Menuスクリプトのインストール②

TOCつきでPDF書き出し
　最前面の書類をTOCつきPDF出力①
　最前面の書類をTOCつきPDF出力②
　最前面の書類をTOCつきPDF出力③
　すべてデスクトップ上にPDF出力

クリップボードに入れたものを処理
　指定色でモノクロ化してクリップボードへ
　赤でモノクロ化してクリップボードへ
　水色でモノクロ化してクリップボードへ
　グリーンでモノクロ化してクリップボードへ
　マゼンタでモノクロ化してクリップボードへ

自動スライドめくり
　冒頭から末尾まで自動スライドめくり

表を処理
　表オブジェクトの重なり合い（２つ以上対応）を検出
　AppleScript Recordから表を作成
　選択中のセルの文字列長さを一覧表で表示
　全スライドの表で行番号入り表の連番修正
　現在のスライド上にある選択中の表のカラム幅を自動調整
　現在のスライド上にあるすべての表のカラム幅を自動調整
　選択中のページのオリジナル表のセル幅に以降の表のセル幅を統一
　選択中のページの表1のセル幅に以降の表のセル幅を統一
　現在のスライド上にあるすべての表のカラム幅を自動調整
　マル付き数字のインクリメント（＋１）
　マル付き数字のデクリメント（ー１）
　マル付き数字のリナンバー

現在のスライドからテキストアイテムを色で選択
　x色系のみ選択

選択中の最前面の書類に対する処理
　連続する同一タイトルに子番号を振る
　スライド末尾にQRコードを追加

選択中の画像へのぼかしフィルタ処理
　選択中の画像にぼかし処理

選択中の各種オブジェクトへの処理
　オブジェクトの重なり合い（２つペア）を検出してグループ化
　テキストを座標値でソートしてまとめてクリップボードへ
　横幅を均等に変更
　数える
　選択中のオブジェクトのうちテキストだけ残す

現在表示中のスライドに対する処理
　テキストを上から順に連結してクリップボードに転送
　指定した文字で囲まれたキーワードの色を置換する
　PDFに書き出してオープン

選択中のテキストアイテムの処理
　AppleScriptとみなして、構文確認してスタイル付きテキストとして書き戻す
　AppleScriptとみなして、構文確認してスタイル付きテキストとして書き戻す（結果つき）
　それぞれ個別のAS書類として保存する
　まとめて1つのAS書類として保存する
　テキストアイテム中のURLにリンクを張って
　HTMLタグを外す
　文字の実際の幅でリサイズ
　文字の実際の幅と高さでリサイズ

選択中のスライドの処理
　すべての表の文字色を黒にする
　タイトルをまとめてクリップボードに入れる
　現在のスライド以降の同じスライドレイアウト（同階層の）スライドのタイトルを取得してクリップボードへ
　現在のスライド以降の同じスライドレイアウト（同階層）のスライドのタイトルを取得して改行でまとめてクリップボードへ（末端レベルではないものが対象）
　選択中のスライドのグループアイテムをグループ解除
　選択中のスライド中の各テキストアイテムのうち指定フォントサイズのものの色を変更
　不透明度が100でないオブジェクトの透明度を解除
　選択スライド枚数を数える
　選択中のスライドのshapeのうち最も右上にあるものの座標を右上角に変更

目次作成
　クリップボードへ転送
　Numbersの表を作成

カレンダー作成
　指定月の日曜日はじまりカレンダーを表で作成

オブジェクトの詰め込み
　指定範囲にスライド上のオブジェクトを詰め込み①
　指定範囲にスライド上のオブジェクトを詰め込み②

２ページ間（現在、次）のオブジェクト整頓
オブジェクトの位置をそろえる

没スライドに対する処理
　現在の書類と同じ階層に没スライド入れを作成

指定画像をbase64エンコード文字列に変換→デコード

Posted on 7月 29 by Takaaki Naganoya

指定画像をbase64でエンコードしたのちに、デコードして画像に戻すAppleScriptです。

base64文字列からのデコードだけをテストしたかったのですが、テストのために本来は不要な画像のエンコード部分を付け足しています。

macOS 13.5上で動作確認していますが、OSのバージョンやAppleScriptのバージョンに依存はしないことでしょう。

AppleScript名：指定画像をbase64エンコード文字列に変換→デコード.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2023/07/29
—
–　　Copyright © 2023 Piyomaru Software, All Rights Reserved
—
property NSData : a reference to current application’s NSData
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSDataBase64EncodingEndLineWithLineFeed : a reference to current application’s NSDataBase64EncodingEndLineWithLineFeed

use AppleScript version "2.8" — macOS 12 or later
use framework "Foundation"
use scripting additions

set aFile to choose file of type {"public.image"}
set aStr to base64StringFromImageFile(aFile) of me
–> "iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAKuWlDQ1BJQ0MgU……"

set aImage to decodeImageFromBase64String(aStr) of me
–> (NSImage)

–Base64 Decode
on decodeImageFromBase64String(aString)
　　set restoreData to NSData’s alloc()’s initWithBase64EncodedString:aString options:0
　　set restoreImage to NSImage’s alloc()’s initWithData:restoreData
　　return restoreImage
end decodeImageFromBase64String

–Base64 Encode
on base64StringFromImageFile(aFile)
　　set aPOSIX to POSIX path of aFile
　　set anImage to NSImage’s alloc()’s initWithContentsOfFile:aPOSIX
　　set imageRep to NSBitmapImageRep’s alloc()’s initWithData:(anImage’s TIFFRepresentation())
　　set aPNGdat to imageRep’s representationUsingType:(NSPNGFileType) |properties|:(missing value)
　　set base64Str to aPNGdat’s base64EncodedDataWithOptions:(NSDataBase64EncodingEndLineWithLineFeed)
　　set bStr to (NSString’s alloc()’s initWithData:base64Str encoding:(NSUTF8StringEncoding))
　　return bStr as string –or return NSString (delete as string) for speedy processing
end base64StringFromImageFile

★Click Here to Open This Script　

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

Posted on 7月 29 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

月: 2023年7月

新発売：Keynote Scripting Book with AppleScript

指定画像をbase64エンコード文字列に変換→デコード

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