MacBookAirで外部ディスプレイを接続している時のお悩み(ミラーリングした時の解像度設定）

PCをプライベート用のMacBookAirと仕事用のwindowsノートPCという２台構成で使っており、どちらも同じ外部ディスプレイにつないでいる。
ただ、Macはクラムシェルではなく本体を開いた状態、仕事用のノートはいつも閉じた状態（外部ディスプレイにつなぐ）で使っている。

ちなみにMacの前はプライベート用のPCはWindowsノートでした。

仕事をするときは仕事用のPCで外部ディスプレイを専有して、プライベート用PCは本体のディスプレイだけを使い、仕事が終わるとプライベート用PCを外部ディスプレイにつなぐということをしていて、出力を切り替える際、windowsの場合は「Windows」キー＋「P」を押して画面を拡張するか複製（ミラーリング）を選んでいた。

Macでもcommand+F1（+fn)で切り替えができるのだけれど、ミラーリングに変更した時、内蔵ディスプレイが外部ディスプレイの解像度になってしまう。
外部ディスプレイが4Kなのでその解像度設定に引きずられ、字が小さい。。

ディスプレイの解像度を環境設定で変更すれば良いのだけれど結構毎回めんどい。色々調べたけれど答えは見つからず。

そんなわけで、ミラーリングに設定し、解像度を内蔵ディスプレイに合わせるというだけでのAppleScriptを書いてみたのが以下。

…見様見真似で作ったので、正解かどうかはわからないですけど、とりあえず動いてます。

 

 
tell application "System Preferences"
	activate
	set current pane to pane "com.apple.preference.displays"
end tell

tell application "System Events"
	tell process "System Preferences"
		delay 1
		activate window "内蔵Retinaディスプレイ"
		click radio button "配置" of tab group 1 of window "内蔵Retinaディスプレイ"
		click checkbox "ディスプレイをミラーリング" of tab group 1 of window "内蔵Retinaディスプレイ"
		click radio button "ディスプレイ" of tab group 1 of window "内蔵Retinaディスプレイ"
		delay 1
		click pop up button 1 of tab group 1 of window "内蔵Retinaディスプレイ"
		click menu item 1 of menu 1 of pop up button 1 of tab group 1 of window "内蔵Retinaディスプレイ"
	end tell
end tell

delay 2

tell application "System Preferences"
	quit
end tell