C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 팁&트릭
C++Builder Programming Tip&Tricks
[190] [팁] 파워포인트 오토메이션..
조성택 [whtjdxor] 9095 읽음    2001-09-15 23:06
제가 설명하는 기능은 파워포인트 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 예제 참고하면서 밤새면서 작업한 생각이 나네요..앞으로 좋은 자료 많이 올리도록 하겠습니다.

+ -

관련 글 리스트
190 [팁] 파워포인트 오토메이션.. 조성택 9095 2001/09/15
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.