Как работать с Powerpoint через OLE? |
Previous Top Next |
Code: |
uses comobj;
procedure TForm1.Button2Click(Sender: TObject); var PowerPointApp: OLEVariant; begin try PowerPointApp := CreateOleObject('PowerPoint.Application'); except ShowMessage('Error...'); Exit; end; // Make Powerpoint visible PowerPointApp.Visible := True;
// Show powerpoint version ShowMessage(Format('Powerpoint version: %s',[PowerPointApp.Version]));
// Open a presentation PowerPointApp.Presentations.Open('c:\MyPresentation.ppt', False, False, True);
// Show number of slides ShowMessage(Format('%s slides.',[PowerPointApp.ActivePresentation.Slides.Count]));
// Run the presentation PowerPointApp.ActivePresentation.SlideShowSettings.Run;
// Go to next slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;
// Go to slide 2 PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(2);
// Go to previous slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Previous;
// Go to last slide PowerPointApp.ActivePresentation.SlideShowWindow.View.Last;
// Show current slide name ShowMessage(Format('Current slidename: %s',[PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name]));
// Close Powerpoint PowerPointApp.Quit; PowerPointApp := UnAssigned; end; |
©Drkb::04457
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php