Untitled
unknown
plain_text
17 days ago
1.2 kB
0
Indexable
Never
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
Leave a Comment