PowerPoint, problem z Shape'ami

0
  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]

0

moze to przez te kropke ? ;p
jest:
(...).Shapes.(j).AutoShape...
a byc moze powinno byc:
(...).Shapes(j).AutoShape...

?

0

Po losowych probach doszedlem do tego
if(PPT.ActivePresentation.Slides.Item(I).Shapes.Item(J).AutoShapeType <> -2) Then

ale teraz jest problem z tym : PPT.ActivePresentation.Slides.Item(I).Shapes.Item(J).Select;

aby zaselektowac , widok musi byc aktywny. Jak zmienic typ widoku ?

0

Na poczatku sprawdzilem wszystkie rodzaje widoku i nic. IDe spac, moze ktos rano poratuje jak ustawic aktywnosc na slajdzie. Przeegoglowalem caly internet...

  EmbedFonts := False;
  PPT := CreateOleObject('PowerPoint.Application');
  PPT.Visible := True;
  PPT.Presentations.Open('C:\TEST.ppt',false,false,true);

         {
  PPT.ActiveWindow.ViewType := $00000001;
  PPT.ActiveWindow.ViewType := $00000002;
  PPT.ActiveWindow.ViewType := $00000003;
 PPT.ActiveWindow.ViewType := $00000004;
  PPT.ActiveWindow.ViewType := $00000005;

  PPT.ActiveWindow.ViewType := $00000006;
  PPT.ActiveWindow.ViewType := $00000007;
  PPT.ActiveWindow.ViewType := $00000008;
  PPT.ActiveWindow.ViewType := $00000009;
 PPT.ActiveWindow.ViewType := $0000000A;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0