Sub СоздатьПрезентацию() Dim Презентация As Object Dim Слайд As Object Dim Текст As Object ' Создаем новую презентацию Set Презентация = CreateObject("PowerPoint.Application").Presentations.Add ' Создаем слайд 1 Set Слайд = Презентация.Slides.Add(1, 11) Слайд.Shapes.Title.TextFrame.TextRange.Text = "Животный мир" ' Создаем слайды 2-8 For i = 2 To 8 Set Слайд = Презентация.Slides.Add(i, 11) ' Создаем текстовый блок и добавляем текст Set Текст = Слайд.Shapes.AddTextbox(1, 100, 100, 500, 300) Текст.TextFrame.TextRange.Text = "Слайд " & i Next i ' Сохраняем презентацию Презентация.SaveAs "C:\Путь\к\файлу.pptx" ' Закрываем презентацию Презентация.Close End Sub