Keynoteスライドの末尾にQRコードのスライドを追加

指定の連絡先情報のQRコード画像を作成して、現在オープン中のKeynoteのスライドの末尾に追加するAppleScriptです。

このAppleScriptでは、ただ固定の文字列をQRコード画像化していますが、Contacts（連絡先）から自分の連絡先の情報を取得して、そこからQRコード画像を作成すると、より「AppleScriptらしい」自動処理になると思います。

さらに、このKeynoteのスライドからPDFを書き出して、Slide Shareに自動アップロードし、そのURLもQRコード画像の中に入れると文句のつけようがありません。

AppleScriptによる自動化で「単なる１つのコマンドをScriptから呼び出すだけ」のものを大量に見かけますが、それだとほとんど意味がありません。複数のアプリケーションや複数のサービスを呼び出してそれらを連携させてはじめて「自動化する意味がある」内容になります。

AppleScript名：Keynoteスライドの末尾にQRコードのスライドを追加

— Created 2018-05-16 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "QuartzCore"

–QRCodeを作成
set a to "MEMORY:Piyomaru Software
NAME1:長野谷隆昌
NAME2:ながのや　たかあき
TEL1:080-xxxx-xxxxx
MAIL1:maro@piyocast.com
TEL2:080-xxxx-xxxxx
MAIL2:maro@xxxxxxxxx
MECARD:N:長野谷,隆昌;SOUND:ながのや,たかあき;TEL:080-9999-9999;TEL:03-9999-9999;EMAIL:maro@piyocast.com;EMAIL:maro@xxxxx.xxxxx;NOTE:ぴよまる;;"

set savedPath to makeQRCodeImageOnDesktop(a) of me
set savedFile to (POSIX file savedPath)
set savedAlias to savedFile as alias

tell application "Keynote"
　　tell front document
　　　　set endSlide to make new slide at end
　　　　
　　　　set blankMaster to master slide "空白" –"Blank" in Japanese. This string is *localized*
　　　　
　　　　tell endSlide
　　　　　　set base slide to blankMaster
　　　　　　set thisImage to make new image with properties {file:savedAlias}
　　　　end tell
　　end tell
end tell

do shell script "rm -f " & quoted form of savedPath

on makeQRCodeImageOnDesktop(aData)
　　set aStr to current application’s NSString’s stringWithString:aData
　　set strData to aStr’s dataUsingEncoding:(current application’s NSShiftJISStringEncoding) –シフトJISにエンコード
　　set qrFilter to current application’s CIFilter’s filterWithName:"CIQRCodeGenerator"
　　qrFilter’s setValue:strData forKey:"inputMessage"
　　qrFilter’s setValue:"H" forKey:"inputCorrectionLevel"
　　set anImage to qrFilter’s outputImage()
　　
　　set convImg to convCIimageToNSImage(anImage) of me
　　
　　–NSImageを拡大（アンチエイリアス解除で）
　　set resizedImg to my resizeNSImageWithoutAntlialias:convImg toScale:6.0
　　
　　–デスクトップに保存
　　set aDesktopPath to (current application’s NSProcessInfo’s processInfo()’s environment()’s objectForKey:("HOME"))’s stringByAppendingString:"/Desktop/"
　　set savePath to aDesktopPath’s stringByAppendingString:((current application’s NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:".png")
　　saveNSImageAtPathAsPNG(resizedImg, savePath) of me
　　
　　return savePath as string
end makeQRCodeImageOnDesktop

on convCIimageToNSImage(aCIImage)
　　set aRep to current application’s NSBitmapImageRep’s alloc()’s initWithCIImage:aCIImage
　　set tmpSize to aRep’s |size|()
　　set newImg to current application’s NSImage’s alloc()’s initWithSize:tmpSize
　　newImg’s addRepresentation:aRep
　　return newImg
end convCIimageToNSImage

on convNSImageToCIimage(aNSImage)
　　set tiffDat to aNSImage’s TIFFRepresentation()
　　set aRep to current application’s NSBitmapImageRep’s imageRepWithData:tiffDat
　　set newImg to current application’s CIImage’s alloc()’s initWithBitmapImageRep:aRep
　　return newImg as string
end convNSImageToCIimage

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –成功ならtrue、失敗ならfalseが返る
end saveNSImageAtPathAsPNG

–NSImageを指定倍率で拡大（アンチエイリアス解除状態で）–By Shane Stanley
on resizeNSImageWithoutAntlialias:aSourceImg toScale:imgScale
　　set aSize to aSourceImg’s |size|()
　　set aWidth to (aSize’s width) * imgScale
　　set aHeight to (aSize’s height) * imgScale
　　
　　set aRep to current application’s NSBitmapImageRep’s alloc()’s initWithBitmapDataPlanes:(missing value) pixelsWide:aWidth pixelsHigh:aHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(current application’s NSCalibratedRGBColorSpace) bytesPerRow:0 bitsPerPixel:0
　　
　　set newSize to {width:aWidth, height:aHeight}
　　aRep’s setSize:newSize
　　
　　current application’s NSGraphicsContext’s saveGraphicsState()
　　
　　set theContext to current application’s NSGraphicsContext’s graphicsContextWithBitmapImageRep:aRep
　　current application’s NSGraphicsContext’s setCurrentContext:theContext
　　theContext’s setShouldAntialias:false
　　theContext’s setImageInterpolation:(current application’s NSImageInterpolationNone)
　　
　　aSourceImg’s drawInRect:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) fromRect:(current application’s NSZeroRect) operation:(current application’s NSCompositeCopy) fraction:(1.0)
　　
　　current application’s NSGraphicsContext’s restoreGraphicsState()
　　
　　set newImg to current application’s NSImage’s alloc()’s initWithSize:newSize
　　newImg’s addRepresentation:aRep
　　
　　return newImg
end resizeNSImageWithoutAntlialias:toScale:

★Click Here to Open This Script　

Please follow and like us:

表示中のKeynoteの現在のスライド上のテキストを上から順に連結してクリップボードに転送

Posted on 4月 23 by Takaaki Naganoya

現在オープン中の最前面のKeynote書類の表示中のスライド（ページ）上にあるテキストオブジェクト内のテキストを、Y座標値をもとに（上から下に）並べ替えてクリップボードに転送するAppleScriptです。

–> Demo Movie

Keynote上で選択した複数のテキストオブジェクトの内容をそのままテキストエディタにコピー＆ペーストで持っていけないので即席で書いたものです。

AppleScript名：表示中のKeynoteの現在のスライド上のテキストを上から順に連結してクリップボードに転送

— Created 2018-04-22 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

tell application "Keynote"
　　tell front document
　　　　tell (current slide)
　　　　　　set tList to properties of text items
　　　　end tell
　　　　
　　　　set posList to {}
　　　　repeat with i in tList
　　　　　　set tmpPos to position of i
　　　　　　set tmpText to object text of i
　　　　　　set the end of posList to (tmpPos & tmpText)
　　　　end repeat
　　　　
　　end tell
end tell

–Sort 2D List
load framework
set sortIndexes to {1} –Key Item id: begin from 0
set sortOrders to {true} –ascending = true
set sortTypes to {"compare:"}
set resList to (current application’s SMSForder’s subarraysIn:(posList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list

set allDat to ""

repeat with i in resList
　　set a to contents of last item of i
　　set allDat to allDat & return & a
end repeat

set the clipboard to allDat

★Click Here to Open This Script　

Please follow and like us:

Keynote, Pages, Numbersがアップデート

Posted on 3月 28 by Takaaki Naganoya

Keynote、Pages、Numbersがアップデートしました。

　Keynote：v7.3.1 –> v8.0.0
　Pages：v6.3.1 –> v 7.0.0
　Numbers：v4.3.1 –> v5.0.0

NumbersのCSV書き出し機能が強化・変更されたとのことなので、これまでNumbersで複数のシートを含む書類をCSV書き出ししたときの挙動とやや変わる可能性があります。

AppleScript用語辞書については、Pagesにのみ変更があります。これまで用語辞書には「ePub」と書かれていましたが、「EPUB」に変更されました。

また、PagesのEPUB書き出し設定（export options）で「fixed layout」という項目（boolean）が増えました。

Please follow and like us:

Crayon Pickerの色をKeynote上に赤、青、その他で判定して表にする

Posted on 2月 27 by Takaaki Naganoya

「クレヨンピッカー」の色を赤、青、その他で判定してKeynoteの表にプロットするAppleScriptです。

–> Demo Movie

AppleScript名：Crayon Pickerの色をKeynote上に赤、青、その他で判定して表にする

— Created 2018-02-27 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSColor : a reference to current application’s NSColor

–Crayon Picker Color Data
set crayonPickerList to {{0, 0, 0}, {6425, 6425, 6425}, {13107, 13107, 13107}, {19532, 19532, 19532}, {26214, 26214, 26214}, {32639, 32639, 32639}, {32896, 32896, 32896}, {39321, 39321, 39321}, {46003, 46003, 46003}, {52428, 52428, 52428}, {59110, 59110, 59110}, {65535, 65535, 65535}, ¬
　　{32896, 0, 0}, {32896, 16448, 0}, {32896, 32896, 0}, {16448, 32896, 0}, {0, 32896, 0}, {0, 32896, 16448}, {0, 32896, 32896}, {0, 16448, 32896}, {0, 0, 32896}, {16448, 0, 32896}, {32896, 0, 32896}, {32896, 0, 16448}, ¬
　　{65535, 0, 0}, {65535, 32896, 0}, {65535, 65535, 0}, {32896, 65535, 0}, {0, 65535, 0}, {0, 65535, 32896}, {0, 65535, 65535}, {0, 32896, 65535}, {0, 0, 65535}, {32896, 0, 65535}, {65535, 0, 65535}, {65535, 0, 32896}, ¬
　　{65535, 26214, 26214}, {65535, 52428, 26214}, {65535, 65535, 26214}, {52428, 65535, 26214}, {26214, 65535, 26214}, {26214, 65535, 52428}, {26214, 65535, 65535}, {26214, 52428, 65535}, {26214, 26214, 65535}, {52428, 26214, 65535}, {65535, 26214, 65535}, {65535, 28527, 53199} ¬
　　}

tell application "Keynote"
　　activate
　　set newDoc to make new document with properties {document theme:theme "ホワイト"} — theme name is *Localized*. This is "White" in Japanese
　　
　　tell window 1
　　　　–set {x1, y1, x2, y2} to bounds
　　　　
　　　　set bounds to {0, 0, 1500, 900}
　　end tell
　　
　　tell newDoc
　　　　set blankSlide to master slide "空白" –master slide name is *Localized*. This is "Blank" in Japanese
　　　　
　　　　tell slide 1
　　　　　　set base slide to blankSlide
　　　　　　
　　　　　　delete every table
　　　　　　set tRes to make new table
　　　　　　
　　　　　　tell tRes
　　　　　　　　set row count to 12
　　　　　　　　set column count to 8
　　　　　　　　set background color of every cell to {65535, 65535, 65535}
　　　　　　　　set header column count to 0
　　　　　　　　set header row count to 0
　　　　　　　　set footer row count to 0
　　　　　　　　
　　　　　　　　repeat with i from 0 to (length of crayonPickerList) – 1
　　　　　　　　　　set a1Num to (i mod 12) + 1
　　　　　　　　　　set b1Num to ((i div 12) + 1) * 2 – 1
　　　　　　　　　　set b2Num to b1Num + 1
　　　　　　　　　　set aCol to contents of item (i + 1) of crayonPickerList
　　　　　　　　　　
　　　　　　　　　　tell column b1Num
　　　　　　　　　　　　tell cell a1Num
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　set background color to aCol
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　—————————————————————————————————–
　　　　　　　　　　copy aCol to {rCol, gCol, bCol}
　　　　　　　　　　set aColor to makeNSColorFromRGBAval(rCol, gCol, bCol, 65535, 65535) of me
　　　　　　　　　　set cdnStr to retColorIsRedOrBlueFromNSColor(aColor) of me –red, blue, other
　　　　　　　　　　—————————————————————————————————–
　　　　　　　　　　
　　　　　　　　　　if cdnStr = "red" then
　　　　　　　　　　　　set textCol to {65535, 0, 0}
　　　　　　　　　　else if cdnStr = "blue" then
　　　　　　　　　　　　set textCol to {0, 0, 65535}
　　　　　　　　　　else
　　　　　　　　　　　　set textCol to {0, 0, 0}
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　tell column b2Num
　　　　　　　　　　　　tell cell a1Num
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　set value to cdnStr
　　　　　　　　　　　　　　　　set text color to textCol
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
　　
end tell

on retColorIsRedOrBlueFromNSColor(aColor)
　　set aColDomain to retColorDomainNameFromNSColor(aColor) of me
　　if aColDomain is in {"magenta", "purple", "orange", "red"} then
　　　　return "red"
　　else if aColDomain is in {"green", "cyan", "blue"} then
　　　　return "blue"
　　else
　　　　return "other"
　　end if
end retColorIsRedOrBlueFromNSColor

on retColorDomainNameFromNSColor(aCol)
　　set hueVal to aCol’s hueComponent()
　　set satVal to aCol’s saturationComponent()
　　set brightVal to aCol’s brightnessComponent()
　　
　　if satVal ≤ 0.01 then set satVal to 0.0
　　
　　set colName to ""
　　
　　if satVal = 0.0 then
　　　　if brightVal ≤ 0.2 then
　　　　　　set colName to "black"
　　　　else if (brightVal > 0.95) then
　　　　　　set colName to "white"
　　　　else
　　　　　　set colName to "gray"
　　　　end if
　　else
　　　　if hueVal ≤ (15.0 / 360) or hueVal ≥ (330 / 360) then
　　　　　　set colName to "red"
　　　　else if hueVal ≤ (45.0 / 360) then
　　　　　　set colName to "orange"
　　　　else if hueVal < (70.0 / 360) then
　　　　　　set colName to "yellow"
　　　　else if hueVal < (150.0 / 360) then
　　　　　　set colName to "green"
　　　　else if hueVal < (190.0 / 360) then
　　　　　　set colName to "cyan"
　　　　else if (hueVal < 250.0 / 360.0) then
　　　　　　set colName to "blue"
　　　　else if (hueVal < 290.0 / 360.0) then
　　　　　　set colName to "purple"
　　　　else
　　　　　　set colName to "magenta"
　　　　end if
　　end if
　　
　　return colName
end retColorDomainNameFromNSColor

on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
　　set aRedCocoa to (redValue / aMaxVal) as real
　　set aGreenCocoa to (greenValue / aMaxVal) as real
　　set aBlueCocoa to (blueValue / aMaxVal) as real
　　set aAlphaCocoa to (alphaValue / aMaxVal) as real
　　set aColor to NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
　　return aColor
end makeNSColorFromRGBAval

★Click Here to Open This Script　

Please follow and like us:

Keynote書類からPDF書き出し v2

Posted on 2月 25 by Takaaki Naganoya

AppleScript名：Keynote書類からPDF書き出し v2

— Created 2017-01-21 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set tmpPath to (path to desktop) as string
set aRes to exportKeynoteDocToPDF(tmpPath)

–Keynote書類からPDF書き出し
on exportKeynoteDocToPDF(targFolderPath as string)
　　
　　tell application "Keynote"
　　　　set dCount to count every document
　　　　if dCount = 0 then
　　　　　　return false
　　　　end if
　　　　set aPath to file of document 1
　　end tell
　　
　　set curPath to (current application’s NSString’s stringWithString:(POSIX path of aPath))’s lastPathComponent()’s stringByDeletingPathExtension()’s stringByAppendingString:".pdf"
　　set outPath to (targFolderPath & curPath)
　　
　　tell application "Keynote"
　　　　set anOpt to {class:export options, export style:IndividualSlides, all stages:false, skipped slides:true, PDF image quality:Best}
　　　　export document 1 to file outPath as PDF with properties anOpt
　　end tell
　　
　　return (outPath as alias)
　　
end exportKeynoteDocToPDF

★Click Here to Open This Script　

Please follow and like us:

iTunes Library上のsongでライブラリへの追加年で集計してKeynote書類上にグラフ作成

Posted on 2月 25 by Takaaki Naganoya

iTunes Library中のsong（楽曲）のライブラリへの追加年を集計して、結果をKeynote上に縦棒グラフを作成するAppleScriptです。

開発環境で6,827曲のライブラリを集計してグラフ作成してトータルで３秒ぐらいです（MacBook Pro Retina 2012 Core i7 2.66GHz）。

AppleScript名：iTunes Library上のsongでライブラリへの追加年で集計してKeynote書類上にグラフ作成

— Created 2017-09-06 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

property NSArray : a reference to current application’s NSArray
property ITLibrary : a reference to current application’s ITLibrary
property NSString : a reference to current application’s NSString
property NSDictionary : a reference to current application’s NSDictionary
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

set yRec to retSongAddedYear() of me
–>　　{{theName:2005, numberOfTimes:1907}….}

–楽曲のiTunesライブラリへの追加「年」のみ抽出
set yList to ((NSArray’s arrayWithArray:yRec)’s valueForKeyPath:"theName") as list
–>　　{2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017}

–楽曲のiTunesライブラリへの追加「年」ごとのカウントを抽出
set vList to ((NSArray’s arrayWithArray:yRec)’s valueForKeyPath:"numberOfTimes") as list
–>　　{1907, 1125, 853, 319, 638, 353, 351, 241, 605, 344, 71, 76, 28}

tell application "Keynote"
　　set adoc to (make new document with properties {document theme:theme "ホワイト", height:768, width:1024}) –Caution: theme name is **localized** ("White")
　　tell front document
　　　　set base slide of current slide to master slide "空白" –Caution: master slide name is **localized** ("Blank")
　　　　tell current slide
　　　　　　add chart row names {"ライブラリ追加年"} column names yList data {vList} type vertical_bar_2d group by chart row –row name is "iTunes Library Added Year"
　　　　end tell
　　end tell
　　activate
end tell

on retSongAddedYear()
　　set library to ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
　　if library is equal to missing value then return {}
　　
　　set allTracks to library’s allMediaItems()
　　set allCount to allTracks’s |count|()
　　
　　set anEnu to allTracks’s objectEnumerator()
　　set newArray to NSMutableArray’s alloc()’s init()
　　
　　repeat
　　　　set aPL to anEnu’s nextObject()
　　　　if aPL = missing value then exit repeat
　　　　try
　　　　　　set aKind to (aPL’s mediaKind) as integer
　　　　　　if (aKind as integer) is equal to 2 then –Music, Song
　　　　　　　　set pMonth to ((aPL’s addedDate() as date)’s year) as integer
　　　　　　　　newArray’s addObject:(pMonth)
　　　　　　end if
　　　　on error
　　　　　　set aLoc to (aPL’s location’s |path|()) as string
　　　　end try
　　end repeat
　　
　　return countItemsByItsAppearance(newArray) of me
end retSongAddedYear

–出現回数で集計
on countItemsByItsAppearance(aList)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:aList
　　set bArray to NSMutableArray’s array()
　　set theEnumerator to aSet’s objectEnumerator()
　　
　　repeat
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　bArray’s addObject:(NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　end repeat
　　
　　–出現回数（numberOfTimes）で降順ソート
　　set theDesc to NSSortDescriptor’s sortDescriptorWithKey:"theName" ascending:true
　　bArray’s sortUsingDescriptors:{theDesc}
　　
　　return bArray as list
end countItemsByItsAppearance

★Click Here to Open This Script　

Please follow and like us:

Keynoteでタイトルがマスターに入っていなかった場合に修正 v2

Posted on 2月 23 by Takaaki Naganoya

Keynoteのタイトルがマスターに入っていなかった場合に、スライドの一番左上に存在するテキストアイテムをタイトルに入れ直すAppleScriptです。

Keynoteで急いでスライドを作ってはみたものの、あわててタイトルをマスタースライドのタイトルオブジェクトに入れていなかった場合に、（見た目は変わらないものの）あとで修正しておく必要があるケースがあります（Keynoteのデータを再利用するような場合とか）。

そこで、現在表示中のスライド中で一番左上に存在するテキストアイテムで、フォントサイズ20ポイント以上、文字色が黒 {0, 0, 0} のものをタイトルとみなして、文字を取得。あらためてマスタースライドのタイトルオブジェクトに文字を入れ直します。

このままだと、色データが{0,0,1}になったぐらいで検出できなくなってしまいますが、Color Domain処理を組み合わせることで「だいたい黒」「黒っぽい色」といった判定が行えるため、組み合わせて使うと効果的でしょう。

▲Before

▲After

AppleScript名：Keynoteでタイトルがマスターに入っていなかった場合に矯正 v2

use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
use bPlus : script "BridgePlus"

property minTitleFontSize : 20
property targBaseSlide : "タイトル（上）"

tell application "Keynote"
　　tell front document
　　　　set newMaster to master slide targBaseSlide
　　　　
　　　　tell current slide
　　　　　　set curBaseName to name of base slide
　　　　　　
　　　　　　–現在のスライド上のすべてのテキストアイテムの座標{x ,y}を取得して最小（一番上）のものを推測
　　　　　　set pList to position of every text item
　　　　　　set p2List to sort2DListAscending(pList) of me
　　　　　　set mostUpPos to contents of first item of p2List
　　　　　　
　　　　　　–一番上に存在するテキストアイテムから情報を抽出
　　　　　　set tTextItem to first item of (every text item whose position is mostUpPos)
　　　　　　tell tTextItem
　　　　　　　　set tObjText to (object text)
　　　　　　　　set aTitle to tObjText as string
　　　　　　　　set aProp to size of (object text)
　　　　　　　　set aColor to color of (object text)
　　　　　　end tell
　　　　　　
　　　　　　–スライドの一番上に存在するテキストアイテムのフォントサイズが想定以上で、色が黒の場合には
　　　　　　–マスタースライドのデフォルトタイトルに、一番上に存在していたテキストアイテムの本文を突っ込む
　　　　　　if (aProp ≥ minTitleFontSize) and (aColor = {0, 0, 0}) then
　　　　　　　　–色判定でColor Domain処理を行えば、「黒っぽい色」や「赤っぽい色」を対象にできる
　　　　　　　　
　　　　　　　　if curBaseName is not equal to targBaseSlide then
　　　　　　　　　　set base slide to newMaster
　　　　　　　　end if
　　　　　　　　
　　　　　　　　delete tTextItem
　　　　　　　　set object text of default title item to aTitle
　　　　　　end if
　　　　end tell
　　end tell
end tell

–2D Listのソート
on sort2DListAscending(aList)
　　load framework
　　set sortIndexes to {0, 1} –Key Item id: begin from 0
　　set sortOrders to {true, true} –Ascending, Ascending
　　set sortTypes to {"compare:", "compare:"}
　　set bList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value))
　　return bList as list of string or string
end sort2DListAscending

★Click Here to Open This Script　

Please follow and like us:

テーマを選択してKeynoteの新規ドキュメントを作成

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：テーマを選択してKeynoteの新規ドキュメントを作成

tell application "Keynote"
　　set tList to name of every theme
　　set themeName to first item of (choose from list tList)
　　set newDoc to make new document with properties {document theme:theme themeName}
　　
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

— Created 2015-10-27 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

tell application "Keynote"
　　–Keynoteの用語辞書のサンプルどおりに書いても動かない！！（オブジェクト名がローカライズされているので、テーマ名が言語環境依存）
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1920, height:1080})
　　
　　tell aDoc
　　　　set masList to name of every master slide
　　　　–> {"タイトル & サブタイトル", "画像（横長）", "タイトル（中央）", "画像（縦長）", "タイトル（上）", "タイトル & 箇条書き", "タイトル、箇条書き、画像", "箇条書き", "画像（3 点）", "引用", "写真", "空白"}
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整

Posted on 2月 23 by Takaaki Naganoya

▲Before

▲After

AppleScript名：Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整 v2

— Created 2017-10-06 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　
　　　　　　set tCount to count every table
　　　　　　if tCount = 0 then return
　　　　　　
　　　　　　tell table 1
　　　　　　　　
　　　　　　　　set cCount to count every column
　　　　　　　　set cWidth to width of every column
　　　　　　　　set aWidth to width –table width
　　　　　　　　
　　　　　　　　set aveWidth to (aWidth – (first item of cWidth)) / (cCount – 1)
　　　　　　　　
　　　　　　　　tell columns 2 thru cCount
　　　　　　　　　　set width to aveWidth
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynoteで2D円グラフを作成

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：Keynoteで2D円グラフを作成

–set aRec to {kanjiNum:24960, kanjiRating:28.0, hiraganaNum:56080, hiraganaRating:62.9, katakanaNum:1063, katakanaRating:1.2, otherNum:7136, otherRating:8.0} –文学（坊ちゃん）
–set aRec to {kanjiNum:563289, kanjiRating:22.0, hiraganaNum:1311933, hiraganaRating:51.2, katakanaNum:210161, katakanaRating:8.2, otherNum:478690, otherRating:18.7, totalCount:2564073}–異世界はスマートフォンとともに
set aRec to {kanjiNum:364870, kanjiRating:26.7, hiraganaNum:682261, hiraganaRating:50.0, katakanaNum:89109, katakanaRating:6.6, otherNum:230374, otherRating:16.9, totalCount:1366614} –Knight’s and Magic

set cCount to (kanjiNum of aRec)
set hCount to (hiraganaNum of aRec)
set kCount to (katakanaNum of aRec)
set oCount to (otherNum of aRec)

tell application "Keynote"
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1024, height:768}) –Normal Slide
　　–set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1920, height:1080})–Wide Slide
　　
　　tell front document
　　　　
　　　　set aSlide to make new slide at after (first slide) with properties {base slide:master slide "タイトル(上)"}
　　　　tell aSlide
　　　　　　set object text of default title item to "文字種別使用比率"
　　　　　　–add chart row names {"文字種別"} column names {"漢字", "ひらがな", "カタカナ", "その他"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
　　　　　　add chart row names {"文字種別"} column names {"Kanji", "Hiragana", "Katakana", "Other"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
　　　　　　
　　　　end tell
　　　　
　　end tell
　　
end tell

★Click Here to Open This Script　

Please follow and like us:

serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

Posted on 2月 7 by Takaaki Naganoya

AppleScript名：serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

— Created 2016-10-31 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set selData to retSerializedData() of me
set aList to (deserializeToPlistString(selData) of me) as list
set aLen to length of aList
if aLen > 10 then
　　set bList to items 1 thru 10 of aList
else
　　copy aList to bList
end if

makeKeynoteGraph(bList, "自分のiTunesライブラリ中のジャンル内訳") of me

on makeKeynoteGraph(bList, aTitle)
　　set labelList to {}
　　set dataList to {}
　　
　　repeat with i from 1 to (length of bList)
　　　　set the end of labelList to contents of theName of (item i of bList)
　　　　set the end of dataList to contents of numberOfTimes of (item i of bList)
　　end repeat
　　
　　set targWidth to 500
　　set targHeight to 500
　　
　　tell application "Keynote"
　　　　activate
　　　　set thisDocument to make new document with properties {height:764, width:1024, document theme:theme "ホワイト"}
　　　　
　　　　tell thisDocument
　　　　　　
　　　　　　set aHeight to height
　　　　　　set aWidth to width
　　　　　　
　　　　　　tell slide 1
　　　　　　　　set base slide to master slide "タイトル（上）" of thisDocument
　　　　　　　　set object text of default title item to aTitle
　　　　　　　　
　　　　　　　　tell default title item
　　　　　　　　　　set height to 80
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　(add chart row names {"ROW A"} column names labelList data {dataList} type pie_2d group by chart column)
　　　　　　　　
　　　　　　　　tell chart 1
　　　　　　　　　　
　　　　　　　　　　set width to targWidth
　　　　　　　　　　set height to targHeight
　　　　　　　　　　
　　　　　　　　　　set position to {(aWidth / 2) – (targWidth / 2), (aHeight / 2) – (targHeight / 2) + 20}
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end makeKeynoteGraph

on retSerializedData()
　　return "<?xml version=＼"1.0＼" encoding=＼"UTF-8＼"?>
<!DOCTYPE plist PUBLIC ＼"-//Apple//DTD PLIST 1.0//EN＼" ＼"http://www.apple.com/DTDs/PropertyList-1.0.dtd＼">
<plist version=＼"1.0＼">
<array>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1721</integer>
　　　　<key>theName</key>
　　　　<string>サウンドトラック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>942</integer>
　　　　<key>theName</key>
　　　　<string>ロック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>539</integer>
　　　　<key>theName</key>
　　　　<string>クラシック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>492</integer>
　　　　<key>theName</key>
　　　　<string>ポップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>352</integer>
　　　　<key>theName</key>
　　　　<string>J-Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>330</integer>
　　　　<key>theName</key>
　　　　<string>アニメ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>279</integer>
　　　　<key>theName</key>
　　　　<string>Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>218</integer>
　　　　<key>theName</key>
　　　　<string>World</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>188</integer>
　　　　<key>theName</key>
　　　　<string>Soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>187</integer>
　　　　<key>theName</key>
　　　　<string>ジャズ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>166</integer>
　　　　<key>theName</key>
　　　　<string>エレクトロニック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>165</integer>
　　　　<key>theName</key>
　　　　<string>Classical</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>148</integer>
　　　　<key>theName</key>
　　　　<string>Rock</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>125</integer>
　　　　<key>theName</key>
　　　　<string>R&B</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>104</integer>
　　　　<key>theName</key>
　　　　<string>ニューエイジ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>81</integer>
　　　　<key>theName</key>
　　　　<string>Unclassifiable</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>57</integer>
　　　　<key>theName</key>
　　　　<string>Children’s</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>47</integer>
　　　　<key>theName</key>
　　　　<string>歌謡曲</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>38</integer>
　　　　<key>theName</key>
　　　　<string>Holiday</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>34</integer>
　　　　<key>theName</key>
　　　　<string>オルタナティブ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>32</integer>
　　　　<key>theName</key>
　　　　<string>Data</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>31</integer>
　　　　<key>theName</key>
　　　　<string>イージーリスニング</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ヴォーカル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ワールド</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>19</integer>
　　　　<key>theName</key>
　　　　<string>soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ディズニー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>シンガーソングライター</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ブルース</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Easy Listening</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>ラテン</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Electronica/Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>13</integer>
　　　　<key>theName</key>
　　　　<string>Anime</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>10</integer>
　　　　<key>theName</key>
　　　　<string>フォーク</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>J-POP</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>New Age</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ダンス</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ホリデー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>カントリー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>演歌</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ／ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>Vocal</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B/ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B／ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>#NIPPONSEI @ IRC.MIRCX.COM</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>148</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Electronic</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Folk</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>NHK FM(東京)</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>その他</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>チルドレン・ミュージック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Seattle Pacific University – Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Kayokyoku</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ/ ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>インストゥルメンタル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>146</string>
　　</dict>
</array>
</plist>
"
　　
end retSerializedData

–list or record –> XML-format plist string
on serializeToPlistString(aList as {list, record})
　　set pListData to current application’s NSPropertyListSerialization’s dataWithPropertyList:aList |format|:(current application’s NSPropertyListXMLFormat_v1_0) options:0 |error|:(missing value)
　　set bStr to (current application’s NSString’s alloc()’s initWithData:pListData encoding:(current application’s NSUTF8StringEncoding)) as string
　　return bStr
end serializeToPlistString

–XML-format plist string–> list or record
on deserializeToPlistString(aStr as string)
　　set deStr to current application’s NSString’s stringWithString:aStr
　　set theData to deStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aList to current application’s NSPropertyListSerialization’s propertyListWithData:theData options:(current application’s NSPropertyListMutableContainersAndLeaves) |format|:(missing value) |error|:(missing value)
　　return aList
end deserializeToPlistString

★Click Here to Open This Script　

Please follow and like us:

AppleScript Hole

Useful & Practical AppleScript & AppleScriptObjC archive

タグ: Keynote

Keynoteスライドの末尾にQRコードのスライドを追加

表示中のKeynoteの現在のスライド上のテキストを上から順に連結してクリップボードに転送

Keynote, Pages, Numbersがアップデート

Crayon Pickerの色をKeynote上に赤、青、その他で判定して表にする

Keynote書類からPDF書き出し v2

Keynoteでタイトルがマスターに入っていなかった場合に修正 v2

テーマを選択してKeynoteの新規ドキュメントを作成

Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整

Keynoteで2D円グラフを作成

serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

Enjoy this blog? Please spread the word :)