あぁそうだった

- 2008/05/23
- archives
Excelで Chartオブジェクトだけ画像ファイルに保存
xlsシート内にあるグラフだけを画像ファイルに保存したい。
※グラフシートでなく。

リファレンスを調べるとChartオブジェクトにSaveAsメソッドがあるようなので、html形式で保存したらいけそうだなーと思ったが、やってみるとエラーになってしまいお手上げ（詳細割愛）。

どうしたものかな、とgoogle先生で検索を繰り返したら、またもや2chのスレッドに答えそのものを発見。
あなどれんな～。

Exportメソッドというものがあるらしい。
形式も指定できるが、省略してもファイル名の拡張子から適宜判断してくれる。便利。
gif/png/jpgはいけた。

■export_chart.js
```
var app = new ActiveXObject("Excel.Application");

try {

    var book = app.Workbooks.Open( xlsブックのフルパス, true );
    var sh = book.Sheets( 1 );

    var co = sh.ChartObjects( 1 );
    var ch = co.Chart;
    ch.Export( 出力画像ファイルのフルパス );

} catch( ex ) {
    throw    ex;
} finally {
    app.Quit();
}
```
■試した環境
Excel 2003 SP3 + XP Prof SP2(ja)
Excel 2007 SP1 + Vista Ultimate SP1 x64(ja)

2008/05/19
archives

jscriptで utf8なファイル出力

ADODB.Streamを使うと、SJIS以外のエンコードに変換可能。
て、ことが以下のURLに書いてある。
ADODB.Stream を使ったファイルの読み書き - by AOK
こんな方法があるとはな～。

こっちはさらに、utf-8出力時のBOMをどう除去するか、という話
JavaScriptでファイルの書き込みをUTF-8で行う(htaまたは、wsh用) - jiroの日記
ADODB.Streamを2つ使い、Positionを移動することでBOMをskipして出力。なるほどなー。

とりあえずSJIS出力で我慢しといて、iconvで変換するか、とか考えたけど、最初からutf-8で書き出せれば便利だ。


    /* ADODB.Stream - SaveOptionsEnum */
    var    adSaveCreateOverWrite = 2;

    /* ADODB.Stream - StreamTypeEnum */
    var    adTypeBinary = 1;
    var    adTypeText = 2;

    /* ADODB.Stream - StreamWriteEnum */
    var adWriteChar = 0;
    var    adWriteLine = 1;

         var st = new ActiveXObject("ADODB.Stream");
        st.type = adTypeText;
        st.charset = "utf-8";
        st.open();

        st.WriteText( なにか出力 , adWriteLine );

        st.Position = 0;
        st.Type = adTypeBinary;
        st.Position = 3; ←utf8なら3
        var bin = st.Read();
        st.Close();

        var stw = new ActiveXObject("ADODB.Stream");
        stw.Type = adTypeBinary;
        stw.Open();
        stw.Write( bin );
        stw.SaveToFile( 出力ファイル , adSaveCreateOverWrite );
        stw.Close();

- 2008/05/16
- archives
VBAで Outlookの予定表フォルダを取得する
※VBAで、といいつつJScript。

既定の予定表は、こんな感じでFolderオブジェクトを得られる（JScript）

var app = new ActiveXObject("Outlook.Application");
var ns = app.GetNamespace("MAPI");
var folder = ns.GetDefaultFolder(olFolderCalendar);

※olFolderCalendarは9

ここの環境は、以前、別のOffice環境から移行してきたデータファイルがあるため、左のように複数の予定表フォルダがある。これに対応するFolderオブジェクトを取得したい。（で、配下の予定表アイテムを列挙、といきたい）

FolderのEntryIDが事前に分かっていれば、NameSpaceから取得できるようなんだけど・・・。

「おれおれフォルダ→予定表」にあたるFolderオブジェクトのFolderPathは
　"\\おれおれフォルダ\予定表"
になることがわかったので、ルートから順番に辿ってパスで判断することに。

■folders.js

/**
* Enum folders(and its itemtype) of Outlook(!=express).
*
* usage:
*   cscript.exe folders.js
*
* Tried env.
*   Outlook 2003 SP3 + XP Prof SP2(ja)
*   Outlook 2007 SP1 + Vista Ultimate SP1 x64(ja)
*/

if( !WScript.FullName.match( /cscript\.exe$/i ) )
{
   WScript.echo( "run me under cscript.exe");
   WScript.Quit();
}

var app = new ActiveXObject("Outlook.Application");
var ns = app.GetNamespace("MAPI");

traverse( ns );

function   traverse( folder )
{
   if( folder.FolderPath )
   {
       WScript.echo( folder.FolderPath + ": " + folder.DefaultItemType );
   }
   else
   {
       WScript.echo( folder );
   }

   var folders = folder.Folders;
   for( var i = 1 ; i <= folders.Count ; i++ )
   {
       traverse( folders(i) );
   }
}
- 2008/05/15
- archives
WSHで CUI実行かどうか判断する
ちょっとしたスクリプトにおいて、WScript.Echoなどで結果をstdoutにずらずら出力したいときがある。
で、このスクリプトをエクスプローラからダブルクリックで実行してしまいMsgBoxが延々と出てきてしまうと悲しい。ので、実行時にチェックしてコマンドプロンプト（cscript.exe）から実行されたかどうか判断したい。

改めて検索してみたら、
「＠IT：運用　Windows管理者のためのWindows Script Host入門　第4回　WScriptオブジェクトの詳細（2）　4．スクリプトの実行制御とホスト情報の取得」
実行ファイル名でチェックしてるサンプルが。

今までこんなん↓してた（JScript）
```
try {
    WScript.StdErr.WriteBlankLines(1);
} catch( ex ) {
    WScript.echo( "run me under cscript.exe");
    WScript.Quit();
}
```
うーん。
cscript.exe経由で実行の場合に、StdErrが汚れるし。。
- 2008/03/23
- archives
CF 8GBな X40に Vista SP1統合セットアップ
2009/02/13：このX40はSSDに換装しました

～以下の内容は単に僕がやってみたことの記録であり、どのような保証もしません。これを参考にした結果どのような被害/損害が発生しても当方は責任を負いかねます。全て自己責任で。～

先週、VistaのSP1が一般の人にもダウンロードできるようになりました。
デスクトップ機はHDDに余裕があるので、スタンドアロン版で余裕のupdate完。

問題は、「Thinkpad X40のHDDをCFに換装してVista」でセットアップしたCF 8GBなX40。
スタンドアロン版は無理そうだったので、Windows Updateからチャレンジするもあえなく容量不足で途中終了。中国語/韓国語フォント&辞書を地味に削除してあがいてみたものの、約1GBの空き容量では足りないらしい。

ということで、SP1統合したインストールメディアを作ることにした。
ちなみに、権利のある人は、MSDNからSP1統合済みインストールイメージをDLするのが吉。今回の場合、インストール先が8GBと狭いのでvLiteによるダイエットも兼ねてセットアップディスクを作成した。

「パソコン初心者の為のガイド - Windows Vista SP1 統合 -」を見ながら進める。
このページには途中で失敗したこととかを書く。

前提条件
- X40以外に使える作業環境は、Vista Ultimate x64（Phenom 9600）なデスクトップ機。
- X40にインストールしたのはVista Ultimate x86版
- インストール先のディスク容量は8GB
SP1適用済みなVista環境を作る
- 先にスタンドアロン版SP1をダウンロードして、ISOイメージにしておく
- デスクトップPCにVitrual Server 2005R2 SP1をインストールしてあったのでこれを使った。
- セットアップ完了後に現れる最初のユーザを作成する画面で「CTRL+SHIFT+F3」
- 再起動後、デスクトップが立ち上がる。sysprepのダイアログが表示されてる。
- SP1スタンドアロン版を仮想CDから実行する。
- SP1の適用が完了したら、ファイル名を指定して実行、からvsp1clnを実行する。
- SP1クリーナが終了したら、放置し続けたsysprepのダイアログの「一般化する」のチェックをオンにしてOKボタン
- 一般化処理が進行し、いきなり再起動する。上述のURLに「Vistaが起動しないよう注意」と書いてあるのに従って、OSが立ち上がる前に仮想マシンのBIOS画面でいきなり電源断。
SP1適用済みVistaのimage抽出
- imagexというコマンドを利用するために、Windows AIKを導入した
- ダウンロードしたのはWindows AIKのインストールイメージなので、これをVista x64でマウントしてセットアップ
- セットアップが済んだら、「Windows PE Tools コマンドプロンプト」を起動
- 仮想マシンをさらに1つ増やす
- 増やした仮想マシンでWindows PEを実行
- 抽出後イメージの保存先としてネットワークドライブをマウント
- 先にコピーしておいたimgexを実行
  imagex /compress none /flags "Ultimate" /capture c: z:\install.wim "Windows Vista Ultimate w SP1"
統合セットアップイメージを作る
- vLite - Windows Vista configuration toolからvLiteをダウンロードして母艦にインストール
- 「Vistaのインストレーションファイルが置かれているフォルダ・ドライブ」を問われる。x86版vistaのDVDのパスを指定した。
- ここで一旦vLiteを終了させる
- 改めて、vLiteを起動
- 「統合」タブ
- 「コンポーネント」タブ
- 「Tweaks」「無人」タブ
- あとは、ISOイメージを作成し、DVDに焼く
やっと実機にインストール
- 焼いたDVDから起動して普通にセットアップ完
- 長い戦いもようやく終幕
- 「Thinkpad X40のHDDをCFに換装してVista」と同様に、ページファイル、復元ポイント、を落とした。
- vLiteで先にダイエットすると、ちびちび削除しなくていいのが楽だー。
- RAMディスク（RamPhantom2）、アンチウイルス（NOD32アンチウイルス V2.7）、Firefox、Googleツールバー、TortoiseSVN、を入れた状態で残容量2.89GB。これだけ空いてたらOfficeもいけそう。
おわり
- 今回のSP1適用で3回セットアップした。CFの寿命が心配。。
- ブックマーク、メール、RSSリーダーをネットワークサービスに移行してるとこういうとき楽だなー。
- 結論は、SP1込みのセットアップメディアをMSDNかDSP版で入手した方がいいよ、ということです。

前提条件

SP1適用済みなVista環境を作る

SP1適用済みVistaのimage抽出

統合セットアップイメージを作る

やっと実機にインストール

おわり