タイトルバーの名前を変更



【オブジェクト】

  _Application

【プロパティ】

    [値を取得]
    _bstr_t object->Caption

    [値の変更]
    object->Caption = _bstr_t

【内容】

    Excelウィンドウのタイトルバーに表示される名前を変更します。
    何も設定しない場合は、"Microsoft Excel"という文字が設定されています。
    また、Empty値(空文字)を設定すると"Microsoft Excel"が設定されます。

【サンプル】

//Excelを操作するためのタイプライブラリを読みこむ(Excel2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesXL")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces

void CImp_app_CaptionDlg::OnButton1() 
{
    //名前空間の設定
    using namespace Excel;

    //オブジェクトの定義
    _ApplicationPtr pXL;

     //Excelの起動
    pXL.CreateInstance(L"Excel.Application");

    //Excelを表示
    pXL->Visible = TRUE;

    //ウィンドウのタイトルを変更
    pXL->Caption = "テスト";

    //動作チェック
    AfxMessageBox("動作チェックのため、一時停止");

    //Excelを終了
    pXL->Quit();
}


[サンプル・ソース]