テキストボックスを追加し、文字列を出力する

ここでは、PowerPointのスライドにテキストボックスを追加し、そこに文字列を出力するサンプルを示します。



//PowerPointを操作するためのタイプライブラリを読みこむ(PowerPoint2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesDOC")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace
#import "C:\Program Files\Microsoft Office\Office\msppt9.olb"

void CPpttextboxDlg::OnButton1() 
{
	using namespace PowerPoint;
	_ApplicationPtr pPPT;

 	//PowerPointの起動
	pPPT.CreateInstance(L"PowerPoint.Application");
	pPPT->put_Visible(msoTrue);

	//新規 プレゼンテーション を追加する
	_PresentationPtr pPresentation = pPPT->Presentations->Add(msoTrue);

	//新規 スライド(空)を追加する
	_SlidePtr pSlide = pPresentation->Slides->Add(1, ppLayoutBlank);

	//テキストボックスの追加
	PowerPoint::ShapePtr pShape = pSlide->Shapes->AddTextbox(msoTextOrientationHorizontal, 200, 200, 20, 20);

	//テキストボックスを選択
	pShape->Select(msoTrue);	
	
	//選択されているオブジェクトを取得
	PowerPoint::SelectionPtr pSelection = pPPT->ActiveWindow->Selection;

	//テキストボックスへ文字を出力
	pSelection->TextRange->Text = "TEST";

	AfxMessageBox("動作確認のために一時停止");

	pPPT->Quit();		
}