Напиши VBA код для презентации в PowerPoint на тему: "Влияние естественных наук в целом и биологии в частности на окружающую среду, экономическую, технологическую, социальную и этическую сферы деятельности человека."

Sub CreatePresentation() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer

' Создаем новую презентацию
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Add

' Добавляем слайд с заголовком
slideIndex = 1
pptPres.Slides.Add slideIndex, 1 ' 1 - Тип слайда с заголовком
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = "Влияние естественных наук в целом и биологии в частности"

' Добавляем слайд с содержанием
slideIndex = slideIndex + 1
pptPres.Slides.Add slideIndex, 2 ' 2 - Тип слайда с содержанием
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = "Окружающая среда"
pptPres.Slides(slideIndex).Shapes(2).TextFrame.TextRange.Text = "Экономическая сфера"
pptPres.Slides(slideIndex).Shapes(3).TextFrame.TextRange.Text = "Технологическая сфера"
pptPres.Slides(slideIndex).Shapes(4).TextFrame.TextRange.Text = "Социальная сфера"
pptPres.Slides(slideIndex).Shapes(5).TextFrame.TextRange.Text = "Этическая сфера"

' Добавляем слайд с текстом
slideIndex = slideIndex + 1
pptPres.Slides.Add slideIndex, 3 ' 3 - Тип слайда с текстом
pptPres.Slides(slideIndex).Shapes(1).TextFrame.TextRange.Text = "Биология и другие естественные науки играют важную роль в понимании взаимодействия человека с окружающей средой. Они помогают разрабатывать устойчивые методы использования природных ресурсов, предотвращать загрязнение окружающей среды и сохранять биоразнообразие."

' Отображаем презентацию
pptApp.Visible = True

End Sub