제가 설명하는 기능은 파워포인트 2000이 설치되어 잇어야 합니다.
우선 컴포넌트에서 TPowerPointApplication을 놓으시구여..메시지에
F_Name = "";
if (OpenDialog->Execute()) {
F_Name = OpenDialog->FileName;
try{
AnsiString str = ExtractFileName(F_Name);
int nIndex = str.LastDelimiter(".");
str.Delete(nIndex,4);
str = "C:\\Windows\\temp\\"+str;
CreateDir(str);
PowerPointApplication1->Connect();
PowerPointApplication1->Set_Visible(MsoTriState(TRUE));
PowerPointApplication1->Set_WindowState(PpWindowState(2));
PowerPointApplication1->Presentations->Open(WideString(this->F_Name).Copy(),
MsoTriState(0),MsoTriState(-1),MsoTriState(-1));
PowerPointApplication1->ActivePresentation->SaveAs(WideString(str).Copy(),PpSaveAsFileType(17),MsoTriState(0));
PowerPointApplication1->Quit();
PowerPointApplication1->Disconnect();
}
catch(...){
MessageDlg("파워포인트2000을 설치해 주십시요.", mtError, TMsgDlgButtons() << mbYes , 0);
MsgDlg->Hide();
delete MsgDlg;
return;}
}
을...파워포인트 저장기능중에 Jpeg로 저장있죠..그기능을 오토맨션으로 하는것입니다. 저기위에서..
PowerPointApplication1->ActivePresentation->SaveAs(WideString(str).Copy(),PpSaveAsFileType(17),MsoTriState(0));
라는 부분에 PpSaveAsFileType이 있는데..17은 Jpeg로 저장이구요..딴 파일 형식으로 저장하는 것은 MSDN찾아보시면 자세히 나와있을것 같네요..기존 책 보면 엑셀,워드 오토맨션은 많은데 파워포인트 예제는 보기 힘들어서..Visual C 예제 참고하면서 밤새면서 작업한 생각이 나네요..앞으로 좋은 자료 많이 올리도록 하겠습니다.
|