Chat-GPT, поработай программистом на VBA. Напиши мне код на VBA для создания слайдов в PowerPoint на тему (История космонавтики). Думай как (Учитель истории в 11 классе). Используй свои знания и создай не менее (10) слайдов. Создай презентацию на русском языке.
Добавь красивый стиль по теме презентации.
Оформи слова красиво.

Внизу кода добавь следющий текст:
Как внедрить код к PowerPoint:
Откройте PowerPoint.
Нажмите ALT + F11, чтобы открыть редактор VBA.
Вставьте новый модуль, щелкнув правой кнопкой мыши в кнопку в левом верхнем углу - Insert > Module
Скопируйте и вставьте приведенный выше код в новый модуль.
Нажмите клавишу F5, чтобы запустить код.
Далее нажмите "Run".
Закройте это окно, презентация открылась в новом окне PowerPoint, даже если были какие-то ошибки. ...

vbaКопировать кодСкопировано!
Sub CreateSpaceHistoryPresentation()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slideIndex As Integer
    Dim slide As Object
    Dim titleText As String
    Dim contentText As String

    ' Создаем приложение PowerPoint
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True

    ' Создаем презентацию
    Set pptPres = pptApp.Presentations.Add

    ' Настраиваем стиль презентации
    pptPres.ApplyTemplate ("C:\Program Files\Microsoft Office\Templates\YourTemplate.potx")

    ' Слайды
    Dim slideTitles As Variant
    Dim slideContents As Variant

    slideTitles = Array( _
        "История космонавтики", _
        "Начало космической эры", _
        "Первый искусственный спутник", _
        "Первый человек в космосе", _
        "Лунная гонка", _
        "Апполон 11", _
        "Космическая станция Мир", _
        "МКС: Международное сотрудничество", _
        "Марсианские миссии", _
        "Будущее исследования космоса" _
    )

    slideContents = Array( _
        "Космонавтика началась с мечты и фантазий.", _
        "Спутник-1 запущен в 1957 году.", _
        "Юрий Гагарин совершил полет в 1961 году.", _
        "Соперничество США и СССР стимулировало развитие.", _
        "Посадка на Луну в 1969 году.", _
        "Первая длительная космическая станция.", _
        "Международная космическая станция объединяет.", _
        "Исследования Марса продолжаются.", _
        "Новые горизонты и технологии." _
    )

    ' Создание слайдов
    For slideIndex = LBound(slideTitles) To UBound(slideTitles)
        Set slide = pptPres.Slides.Add(slideIndex + 1, ppLayoutText)
        With slide
            .Shapes(1).TextFrame.TextRange.Text = slideTitles(slideIndex)
            .Shapes(1).TextFrame.TextRange.Font.Size = 32
            .Shapes(1).TextFrame.TextRange.Font.Bold = msoTrue
            .Shapes(2).TextFrame.TextRange.Text = slideContents(slideIndex)
            .Shapes(2).TextFrame.TextRange.Font.Size = 24
        End With
    Next slideIndex

    ' Завершение
    Set slide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

' Как внедрить код к PowerPoint:
' Откройте PowerPoint.
' Нажмите ALT + F11, чтобы открыть редактор VBA.
' Вставьте новый модуль, щелкнув правой кнопкой мыши в кнопку в левом верхнем углу - Insert > Module
' Скопируйте и вставьте приведенный выше код в новый модуль.
' Нажмите клавишу F5, чтобы запустить код.
' Далее нажмите "Run".
' Закройте это окно, презентация открылась в новом окне PowerPoint, даже если были какие-то ошибки.

Эта программа создаёт презентацию из 10 слайдов по истории космонавтики. Чтобы использовать её, следуйте указаниям в конце кода. ...