FileWriter_AAC オブジェクト

オブジェクトの作成メソッド: Application.CreateFileWriter

AAC (M4A) ファイルを作成するオブジェクト。

---

■プロパティ

CodecFormat (object)

使用する圧縮フォーマット。これにオブジェクトを代入することでフォーマットを設定します。

CodecInfo (object)

圧縮フォーマット情報を持つオブジェクト。

---

■メソッド

Process

圧縮ファイルを作成します。

---

■ファイル作成の手順

ファイル作成の手順はおよそこのようになります:

1. 入力 SoundClip オブジェクトを作成する。
2. 必要なら SoundClip.Text を変更する。
3. FileWriter_AAC オブジェクトを作成する。
4. 圧縮フォーマット (CodecFormat) のリストを取得する。
5. FileWriter_AAC.CodecFormat プロパティに選んだフォーマットをセットする。
6. FileWriter_AAC.Process メソッドを実行する。

例 (JScript)

// 入力音声 (選択範囲)
var clip = Application.ActiveDocument.CreateSoundClip();
// FileWriter_AAC オブジェクトを作成する.
var writer = Application.CreateFileWriter("aac");
// 適当な圧縮フォーマットを選ぶ.
var fmts = writer.CodecInfo.GetCodecFormats(44100, 2);
fmts = fmts.toArray();
var i;
for (i in fmts) {
    if (Math.round(fmts[i].Bitrate / 1000) == 128) {
        // フォーマットをセットする.
        writer.CodecFormat = fmts[i];
        break;
    }
}
// ファイル作成
writer.Process(clip, "D:\\Sound Output\\test1.m4a");

例 (VBScript)

Dim clip, writer, fmts, f
' 入力音声 (選択範囲)
Set clip = Application.ActiveDocument.CreateSoundClip
' FileWriter_AAC オブジェクトを作成する.
Set writer = Application.CreateFileWriter("aac")
' 適当な圧縮フォーマットを選ぶ.
fmts = writer.CodecInfo.GetCodecFormats(44100, 2)
For Each f In fmts
    If Round(f.Bitrate / 1000) = 128 Then
        ' フォーマットをセットする.
        writer.CodecFormat = f
        Exit For
    End If
Next
' ファイル作成
writer.Process clip, "D:\Sound Output\test1.m4a"