BorlandTalk.com

Chris Rumbold · Guest

Hi

Can anyone help me please.

I want to get powerpoint slides into app which will create a Timage array =,
each one containing a powerpoint slide from the selected presentation so
that I can choose which to show from clicking on the Timage.

Thanks

Chris

George S · Guest

This is a cut and paste from a large portion of code, but this should be
close.... This will save slides to a file.

var
lPath: string;
lApplication: PowerPointApplication;
lPresentation: PowerPointPresentation;
lSlide: PowerPointSlide;
i: integer;
sl: _Slide;

begin

for i := 1 to lPresentation.Slides.Count do
begin
// For EACH SLIDE

lSlide:= lPresentation.Slides.Item(i);
lSlide.Export(Format('%s\TestSlide%.2d.jpg', [lPath, i]), '.jpg', 640,
480);
end;

"Chris Rumbold" <docchris (AT) supanet (DOT) com> wrote in message
news:45f6f08f (AT) newsgroups (DOT) borland.com...