> Wie kann ich auf der ersten Folie Miniaturbilder von allen Folien erzeugen?

Sub Miniaturen()
 Dim strPfad As String
 Dim i As Integer
 Dim n As Integer
 Dim sld As Slide
 
 strPfad = ActivePresentation.Path
 n = ActivePresentation.Slides.Count
    
 ActivePresentation.SaveAs FileName:=strPfad & "\Test.png", _
 FileFormat:=ppSaveAsPNG, EmbedTrueTypeFonts:=msoFalse
 Set sld = ActivePresentation.Slides.Add(1, ppLayoutBlank)
    
    For i = 1 To n
        sld.Shapes.AddPicture FileName:=strPfad & "\Test\Folie" & i & _
        ".PNG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=i * 30, _
        Top:=i * 30, Width:=144, Height:=108
    Next i
End Sub