jscriptからエクセルのオートシェイプを作成しようとしていますが、

質問

jscriptからエクセルのオートシェイプを作成しようとしていますが、文字サイズの変更ができません。

スクリプトは以下の通りです。

<job id="ConstJob">
<reference guid="00020813-0000-0000-C000-000000000046"></reference>
<script language="JavaScript">

//エクセルオブジェクト
var excel = new ActiveXObject("Excel.Application");

//表示しないで編集
excel.Visible = false;

// エクセル新規作成
var book = excel.Workbooks.Add();
book.Worksheets("Sheet1").Activate;

// オートシェイプの作成
var shape0 = book.Worksheets("Sheet1").Shapes.AddShape(1, 5, 5, 410, 130);
shape0.TextFrame.Characters().Font.Size = 9;　……（１）
shape0.TextFrame.Characters().Text = "ここにテキスト";

//エクセルの保存
var fso = new ActiveXObject("Scripting.FileSystemObject");
book.SaveAs(fso.GetFolder(".").path + "\\sample.xls");

//エクセルの終了
excel.Quit();

WScript.Echo("作業完了");

</script>
</job>

この状態でwsfファイルを起動させると、（１）の行でエラーを起こしてしまいます。
「Font クラスの Size プロパティを設定できません。」というエラーです。

検索するとシートの保護を解除すればいい、というページが見つかったのですが、
（参考→http://okwave.jp/qa/q2497357.html）
マクロでは使えても、Jscriptで書いても動作してくれません。

解決策をご存知の方は、よろしくお願いします。

回答No.1

luka3 · ベストアンサー

ExcelのプロじゃないのですがCharacters()の使い方が違うんじゃないかな。
順番を変えて、

shape0.TextFrame.Characters(0,0).Text = "ここにテキスト";
shape0.TextFrame.Characters(0,7).Font.Size = 9;

とやるとできましたよ。

最初のソースをそのまま試したらExcelが見えないまま残るんで焦りました。
でもいろんなことができそうでおもしろいですね。

お礼

luka3さん、回答ありがとうございます。
順番を変えて、Characters()に数字を入れると良いのですね。
試してみると、こちらでもうまくできました。

全くわからなかったので非常に助かりました。

Excelを開かないまま保存して終わるというのは、あまり良いものではないかもしれませんね。
ただ、自分の作業に使うには都合が良かったので、そのまま書いてしまいました。
驚かせてしまってすみません。

補足

あれからもう少し試行錯誤したのですが、オートシェイプ内のテキストの文字数がエラーの本当の原因だったのかもしれません。

shape0.TextFrame.Characters(0,0).Text = "ここにテキスト";

という部分ですが、実際に使うスクリプトでは300字くらい入ります。
そこを少し削るとエラーが出なくなったのです。

どうやら255文字を越えるとダメなようです。