Public Sub RankSlide(PPPres As Object)
' Input powerpoint presentation not sorted
' Output presentation sorted

  Dim PPSlide As Object
  Dim PPSlideObject As Object
  Dim indexSlide As Integer
  Dim PPApp As Object
 
Set PPApp = CreateObject("PowerPoint.Application")
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
 
counterpage = 2

Dim i As Integer

    For i = 3 To PPPres.Slides.Count
        If InStr(1, PPSlide.Shapes(1).TextFrame.TextRange, "CO2") = 1 Then
            PPPres.Slides(i).Cut
            PPPres.Slides.Paste counterpage + 1
        End If
    Next i
'.....

Hallo ,

Ich bin VBA grosse Anfanger . Ich würde mich freuen  wenn jemand mir helfen könnte. Ich bin  seit eine paar Stunden auf diese Code blockiert.  Ich würde gern Folien auf eine PowerPoint Presentation sortieren durch den Titel.  Ich habe wie unten angefangen leider bei der If  blockiert es schon blockiert es  mit  : " Slide.Shapes : object does not exist  "  !  :(

Public Sub RankSlide(PPPres As Object)
' Input powerpoint presentation not sorted
' Output presentation sorted

  Dim PPSlide As Object
  Dim PPSlideObject As Object
  Dim indexSlide As Integer
  Dim PPApp As Object
  Dim counterpage As Integer
 
Set PPApp = CreateObject("PowerPoint.Application")
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
Set counterpage = 2

Dim i As Integer

    For i = 1 To PPPres.Slides.Count
        If InStr(1, PPSlide.Shapes(1).TextFrame.TextRange, "CO2") = 1 Then
        ' check , ob CO2 in Titel gibt.
            PPPres.Slides(i).Cut  ' cut
            PPPres.Slides.Paste counterpage + 1 'fügt auf ein andereplatz in PPt
        End If
    Next i  End Sub

Vielen Dank im voraus

Rémi