Untitled

Sub СоздатьПрезентацию()
    Dim ПРЗ As PowerPoint.Presentation
    Dim Слайд As PowerPoint.Slide
    Dim ФайлПути As String

    ' Создание новой презентации
    Set ПРЗ = PowerPoint.Application.Presentations.Add

    ' Создание нового слайда
    Set Слайд = ПРЗ.Slides.Add(1, ppLayoutTitle)

    ' Задание заголовка слайда
    Слайд.Shapes(1).TextFrame.TextRange.Text = "Влияние общества на экологию"

    ' Добавление текстового блока на слайд
    Слайд.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 400).TextFrame.TextRange.Text = "Текст презентации о влиянии общества на экологию."

    ' Сохранение файла презентации
    ФайлПути = "C:\Путь\к\файлу.pptx"
    ПРЗ.SaveAs ФайлПути

    ' Закрытие презентации
    ПРЗ.Close

    ' Выход из PowerPoint
    PowerPoint.Application.Quit

    MsgBox "Презентация успешно создана и сохранена по пути: " & ФайлПути
End Sub