Sub CreatePresentation() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer ' Создаем новое приложение PowerPoint Set pptApp =…
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: Заголовок With pptPres.Slides.Add(1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Человек и ресурсы земли в Оренбургской области" End With ' Слайд 2: Описание работы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Описание работы" .Shapes(2).TextFrame.TextRange.Text = "1. При помощи ГИС определить расположение данной территории и её границы; карту столицы; основную достопримечательность столицы." End With ' Слайд 3: ГИС расположение и границы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "ГИС: Расположение и границы" .Shapes(2).TextFrame.TextRange.Text = "Определение границ Оренбургской области и ее положения на карте." End With ' Слайд 4: Карта столицы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Карта столицы" .Shapes(2).TextFrame.TextRange.Text = "Карта города Оренбурга с обозначением ключевых объектов." End With ' Слайд 5: Достопримечательность столицы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Основная достопримечательность столицы" .Shapes(2).TextFrame.TextRange.Text = "Описание главной достопримечательности Оренбурга." End With ' Слайд 6: Природные ресурсы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Природные ресурсы" .Shapes(2).TextFrame.TextRange.Text = "Описание природных ресурсов Оренбургской области с количественными и качественными показателями." End With ' Слайд 7: Отрасли и виды хозяйственной деятельности slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Использование природных ресурсов" .Shapes(2).TextFrame.TextRange.Text = "Отрасли и виды хозяйственной деятельности, использующие природные ресурсы." End With ' Слайд 8: Рекреационные ресурсы slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Рекреционные ресурсы" .Shapes(2).TextFrame.TextRange.Text = "Описание одного из рекреационных ресурсов Оренбургской области." End With ' Слайд 9: Природные условия slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Природные условия" .Shapes(2).TextFrame.TextRange.Text = "Рельеф, геологическое строение, климат Оренбургской области." End With ' Слайд 10: ООПТ slideIndex = pptPres.Slides.Count + 1 With pptPres.Slides.Add(slideIndex, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Охраняемые природные территории" .Shapes(2).TextFrame.TextRange.Text
Конечно! Вот подробное объяснение создаваемой вами программы на VBA для автоматической подготовки презентации PowerPoint по теме "Человек и ресурсы земли в Оренбургской области".
Что делает эта программа:
Это макрос VBA, который создает презентацию PowerPoint и добавляет в нее серию слайдов с заранее заданным содержанием. Каждый слайд содержит определенный раздел темы: описание работы, географию, природные ресурсы, рекреационные ресурсы, природные условия и охраняемые территории.
Пошаговый разбор кода:
- Объявление переменных:
Dim pptApp As Object
Dim pptPres As Object
Dim slideIndex As Integer
pptApp— объект приложения PowerPoint.pptPres— сама презентация.slideIndex— счетчик для номеров слайдов.
- Создание экземпляра PowerPoint и его отображение:
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
- Создаем новый экземпляр PowerPoint и делаем его видимым.
- Создание новой презентации:
Set pptPres = pptApp.Presentations.Add
- Добавляем пустую презентацию.
- Добавление первого слайда — заголовка:
With pptPres.Slides.Add(1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Человек и ресурсы земли в Оренбургской области"
End With
- Первый слайд с макетом "Заголовок".
- Устанавливаем текст заголовка.
- Добавление последующих слайдов:
Для каждого слайда последовательным образом:
slideIndex = pptPres.Slides.Count + 1 ' Определяет порядковый номер
With pptPres.Slides.Add(slideIndex, ppLayoutText)
.Shapes(1).TextFrame.TextRange.Text = "Заголовок слайда"
.Shapes(2).TextFrame.TextRange.Text = "Текстовое описание"
End With
- Скрипт динамически определяет номер следующего слайда.
- Каждый слайд использует макет
ppLayoutText, где первый элемент — заголовок, второй — основной текст.
Важные моменты:
- В коде отсутствует определение переменных
ppLayoutTitleиppLayoutText, которые обычно требуют явного объявления или получения из библиотеки PowerPoint (например, через добавление ссылки). В VBA для Excel их можно использовать как константы, например:
Const ppLayoutTitle As Integer = 1
Const ppLayoutText As Integer = 2
или убедиться, что подключена библиотека PowerPoint.
- Если не подключена библиотека, можно заменить
ppLayoutTitleна1, аppLayoutTextна2.
Итоговая структура создаваемой презентации:
- Заголовок
- Описание работы (использование ГИС и карты)
- Описание расположения и границ области
- Карта столицы (Оренбурга)
- Главная достопримечательность
- Природные ресурсы (количественные и качественные показатели)
- Отрасли хозяйственной деятельности
- Рекреационные ресурсы
- Природные условия (рельеф, климат, геология)
- Охраняемые природные территории
Если вам нужно сделать более сложную презентацию или добавить изображения, то это также возможно — через добавление Shapes.AddPicture или редактирование свойств объектов.
Если есть вопросы по коду или вы хотите расширить автоматизацию — скажите, я помогу!
