Untitled

Sub CreatePresentation()
    ' Создаем новую презентацию
    Dim ppt As Object
    Dim slide As Object
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
    Dim pres As Object
    Set pres = ppt.Presentations.Add

    ' Слайд 1 - Заголовок
    Set slide = pres.Slides.Add(1, 1) ' 1 - Тип слайда "Заголовок"
    slide.Shapes(1).TextFrame.TextRange.Text = "Интернет: свобода или зависимость"
    slide.Shapes(2).TextFrame.TextRange.Text = "Доклад студента"

    ' Слайд 2 - Введение
    Set slide = pres.Slides.Add(2, 2) ' 2 - Тип слайда "Текст"
    slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 300).TextFrame.TextRange.Text = _
        "Интернет стал важной частью современной жизни, предоставляя нам свободу самовыражения и доступ к информации. " & _
        "Однако, с этим приходит и риск зависимости, когда человек теряет контроль над временем, проведенным онлайн."

    ' Слайд 3 - Проблема зависимости
    Set slide = pres.Slides.Add(3, 2)
    slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 300).TextFrame.TextRange.Text = _
        "Интернет-зависимость может привести к ухудшению социальной жизни и психического состояния. " & _
        "Социальные сети, онлайн-игры и другие платформы часто создают замкнутую систему, от которой трудно отказаться. " & _
        "Исследования показывают, что интернет-зависимость особенно опасна для молодежи."

    ' Слайд 4 - Заключение
    Set slide = pres.Slides.Add(4, 2)
    slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 300).TextFrame.TextRange.Text = _
        "Интернет может быть источником свободы, если подходить к его использованию осознанно. " & _
        "Важно сохранять баланс между использованием сети и реальной жизнью, устанавливая четкие границы и контролируя время, проведенное онлайн."

End Sub