
No.3ベストアンサー
- 回答日時:
> まず動画を回転する方向ですが、「右90°」ではなく「左90°」でした。
> これはスクリプト上の「right」を「left」に書き換えてみたのですが
> エラーが出て操作が完了できませんでした。
rightを「left」に書き換えればいいはずです。エラーが出るのは、別の理由、たとえば全角英字で「left」と書いてしまったとかにあるのでしょう。
> また書き出す動画のサイズ・形式ですが
> iPhone4のHD動画で撮影したもので
> ファイル形式が
> 720 × 1280
> H.264、AAC
> HD (1-1-1)
> であることがわかりました。
元ムービーの形式を維持したまま書き出すよう、スクリプトを改良しました。
tell application "QuickTime Player 7"
activate
repeat with i from 1 to number of tracks of document 1
set theTrack to track i of document 1
if type of theTrack is "vide" then
set thePath to path to desktop folder as text
set thePath to thePath & "newmovie.mov"
rotate left theTrack
try
export document 1 to file thePath as QuickTime movie
end try
return
end if
end repeat
end tell
フレームを左に90度回転するようにしています。
書き出したムービーファイルの拡張子を、.movに変更しています。
ムービーサイズが大きいと、実害のないエラーが出ることがあるのですが、そのエラーを無視するように処理しています。
No.2
- 回答日時:
前質問の回答に書いた、サンプルコードに不備があることがわかりました。
ごめんなさい。そのまま実行すると、デスクトップにではなく、起動ディスク先頭(おそらくMacintosh HD)に変換後のムービーファイルが保存されます。不備を改善したコードを掲載しておきます。
tell application "QuickTime Player 7"
activate
repeat with i from 1 to number of tracks of document 1
set theTrack to track i of document 1
if type of theTrack is "vide" then
set thePath to path to desktop folder as text
set thePath to thePath & "newmovie.m4v"
rotate right theTrack
export document 1 to file thePath as iPhone
return
end if
end repeat
end tell
(スクリプト実行後、Quicktime Player 7が前面に出るようにもしてあります)
スクリプト実行後、デスクトップにファイルのアイコンが出ないので、再度ファイルメニュー「保存」をなさろうとしたのだと思いますが、そういうスクリプトではありません。いちど起動ディスク先頭を開いて、確認してみてください。そこに変換後のムービーファイルがあるはずです。
この回答への補足
harawo様
ありがとうございます。
デスクトップに保存されるようになりました。
ただ改めて保存された動画を良く見てみると
私が最初に質問をした情報が間違っていたことに
今更ながら気づきました。
申し訳ありませんが
追加質問させて頂いてよろしいでしょうか?
まず動画を回転する方向ですが、「右90°」ではなく「左90°」でした。
これはスクリプト上の「right」を「left」に書き換えてみたのですが
エラーが出て操作が完了できませんでした。
また書き出す動画のサイズ・形式ですが
iPhone4のHD動画で撮影したもので
ファイル形式が
720 × 1280
H.264、AAC
HD (1-1-1)
であることがわかりました。
教えて頂いたスクリプトだと動画サイズが小さくなってしまうようです。
何度もお手数をおかけして恐縮ですが、よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
Excel VBAで作成したマクロをxl...
-
vbaでIEの名前を付けて保存(A)...
-
Corel Digital Studioの動画をS...
-
VBAで、強制保存してブックを閉...
-
VB.NETでEXCELファイルを開き、...
-
VBAでPDF作成をしたあと、指定...
-
エクセルでファイルの最終更新...
-
Excel VBAでほかのアプリケーシ...
-
FileSearchが使えなくなり困っ...
-
「名前をつけてファイルを保存...
-
Pivot table で集計されたデー...
-
エクセルVBAについて
-
PHPで自動的にWEBページを保存...
-
AccessVBAでレポートをPDFで出力
-
vlan internal allocation poli...
-
YAHAMA RTXシリーズのコマンド...
-
USBデータの消失
-
teratarmでコマンド入力すると...
-
onedriveで同期解除をしたら、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで、強制保存してブックを閉...
-
Excel VBAでほかのアプリケーシ...
-
Excel VBAで作成したマクロをxl...
-
エクセルでファイルの最終更新...
-
読み取り専用ファイルを上書き...
-
Pivot table で集計されたデー...
-
エクセルで「名前を付けて保存...
-
VBAでPDF作成をしたあと、指定...
-
VB.NETでEXCELファイルを開き、...
-
VBA メモ帳の上書き保存がしたい
-
別名で保存し、元の名前で中身...
-
【VC++】CDC→WMFファイルに保存...
-
意味不明のタグが挿入されてい...
-
至急教えてください!プログラ...
-
VBSでHPを保存するにはど...
-
リスト構造
-
プログラムについて
-
ファイルのアップロード
-
エクセル:マクロ:保存時に連...
-
度々すみません。(動画縦横変...
おすすめ情報