for I := 1 to PPT.ActivePresentation.Slides.Count do
begin
PPT.ActivePresentation.SlideShowWindow.View.GoToSlide(I);
If PPT.ActivePresentation.SlideShowWindow.View.Slide.Shapes.Count > 1 Then
for J := 1 To PPT.ActivePresentation.SlideShowWindow.View.Slide.Shapes.Count do
begin
if(PPT.ActivePresentation.SlideShowWindow.View.Slide.Shapes.(j).AutoShapeType <> 2) Then
begin
PPT.ActiveWindow.Selection.SlideRange.Shapes(J).Select;
s := PPT.ActiveWindow.Selection.TextRange.Text;
showmessage(s);
end;
end;
end;
Chora jest ta obslua PP.
PPT.ActivePresentation.SlideShowWindow.View.Slide.Shapes.Count to jest OK
PPT.ActivePresentation.SlideShowWindow.View.Slide.Shapes.(j).AutoShapeType <> 2 //nie znaleziono czlonka grupy [glowa]