動的にActiveXを作成する(PowerPointの一例)
Variant::CreateObjectを利用してPowerPointのActiveXを呼び出し操作する方法を紹介しています。
サンプルコード
Variant PPT = Variant::CreateObject("PowerPoint.Application");
PPT.OlePropertySet("Visible",true);
PPT.OlePropertyGet("Presentations")
.OleProcedure("Open",(WideString)FileName,false);
Variant Slides = PPT.OlePropertyGet("ActivePresentation")
.OlePropertyGet("Slides");
for(int i=1;i<=Slides.OlePropertyGet("Count");i++)
{
Variant Slide = Slides.OleFunction("Item",i);
}
PPT.OleFunction("Quit");
概要
ヘッダファイルなどを生成しなくても、
Variant::CreateObject
を利用することによって手軽にActiveXオブジェクトを生成することができます。この例ではPowerPointのActiveXを呼び出しています。
この項目での味噌は
Variant
オブジェクトの
CreateObject
OlePropertyGet
OlePropertySet
OleProcedure
OleFunction
です。
あとはVBAなどで記述する場合とほとんど似た感覚で変数名・関数名を入れていけば動作します。