Для создания презентации в PowerPoint с помощью VBA-кода, вы можете использовать следующий скрипт. Этот код создаст презентацию, состоящую из четырех слайдов, с заданной темой и фотографиями. Убедитесь, что у вас есть доступ к нужным фотографиям и что они находятся в той же папке, что и код, или укажите полный путь.
Вот пример кода:
Sub CreatePresentation()
Dim pptApp As Object
Dim pptPres As Object
Dim slideIndex As Integer
' Создаем объект PowerPoint
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True ' Делаем приложение видимым
Set pptPres = pptApp.Presentations.Add ' Создаем новую презентацию
' 1. Первый слайд - Тема
Dim slide1 As Object
Set slide1 = pptPres.Slides.Add(1, ppLayoutTitle)
slide1.Shapes(1).TextFrame.TextRange.Text = "СССР И СОЮЗНИКИ: ВМЕСТЕ К ПОБЕДЕ"
slide1.Shapes(2).TextFrame.TextRange.Text = "Выполнил: Микляев Никита Дмитриевич, 7г класс"
' 2. Второй слайд - Фото о Великой Отечественной войне
Dim slide2 As Object
Set slide2 = pptPres.Slides.Add(2, ppLayoutText)
slide2.Shapes(1).TextFrame.TextRange.Text = "Великая Отечественная война"
slide2.Shapes.AddPicture(FileName:="C:\Path\To\Image1.jpg", LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, _
Left:=100, Top:=100, Width:=400, Height:=300)
' 3. Третий слайд - Еще одно фото о Великой Отечественной войне
Dim slide3 As Object
Set slide3 = pptPres.Slides.Add(3, ppLayoutText)
slide3.Shapes(1).TextFrame.TextRange.Text = "Великая Отечественная война"
slide3.Shapes.AddPicture(FileName:="C:\Path\To\Image2.jpg", LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, _
Left:=100, Top:=100, Width:=400, Height:=300)
' 4. Четвертый слайд - Спасибо за внимание
Dim slide4 As Object
Set slide4 = pptPres.Slides.Add(4, ppLayoutTitle)
slide4.Shapes(1).TextFrame.TextRange.Text = "Спасибо за внимание!"
' Освобождаем память
Set slide1 = Nothing
Set slide2 = Nothing
Set slide3 = Nothing
Set slide4 = Nothing
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
Шаги для выполнения кода:
- Убедитесь, что у вас установлен Microsoft PowerPoint.
- Откройте Microsoft PowerPoint.
- Нажмите
Alt + F11, чтобы открыть редактор VBA.
- Вставьте новый модуль, выбрав
Insert -> Module.
- Скопируйте и вставьте указанный код в редактор.
- Замените
C:\Path\To\Image1.jpg и C:\Path\To\Image2.jpg на фактические пути к вашим изображениям о Великой Отечественной войне.
- Закройте редактор VBA и вернитесь в PowerPoint.
- Запустите макрос, нажав
Alt + F8, выберите CreatePresentation и нажмите Run.
После этого должен создаться файл презентации с указанными слайдами. Если у вас возникнут вопросы или потребуется дополнительная помощь, не стесняйтесь спрашивать!
