파워포인터 파일 다른이름으로 저장

파워포인터 파일 다른이름으로 저장

728x90

 

 

procedure Tfrm_Main.button_ppt_openClick(Sender: TObject);

var

msppt:variant; //PowerPoint Application 변수

mspps:variant; //PowerPoint Presentation 변수

mspps_slides_totalcount:integer; // PowerPoint Slides Total count 변수

begin

msppt:=CreateOleObject('Powerpoint.Application');

msppt.visible:=true;

msppt.WindowState:=ppWindowMinimized;

mspps:=msppt.Presentations.open('c:\bbbb.ppt',0,-1,-1);

mspps.SaveAs('c:\a',$00000012,true);

// C: 디렉토리에 a라는 폴더안에 슬라이드 단위별로 이미지 저장

//$00000012 PNG 파일로 저장

//$00000011 이나 $00000010 으로 바꾸어 하면 gif,bmp,jpg로 저장가능

mspps_slides_totalcount:=mspps.slides.count;

//파워포인터 슬라이드 총갯수

msppt.quit;

end;