Преди няколко дни читател попита дали има начин да се автоматизира създаването на PowerPoint презентации от нулата и след това бързо да се добавят слайдове към тази съществуваща презентация. Мисля, че този скрипт може да бъде изключително полезен в списъка на най-полезните макроси за PowerPoint.
Както посочихме в миналото, PowerPoint не включва записващо устройство за макроси (в противен случай като Excel и Word, които имат вградени рекордери за макроси). Следователно, трябва да използваме Visual Basic за приложения, който можем да използваме за създаване на прости макроси за автоматизиране на PowerPoint.
Да започваме!
Вижте лентата. Ако не виждате записа за разработчик в менюто, преди да започнете кодирането, ще трябва да активирате раздела за програмисти.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End SubSub CreateSlide()
Dim NewSlide as Slide
'Този код добавя слайд с заглавие
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'Този код добавя празен слайд на второто място
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End SubТова ще бъде просто смесване на двата фрагмента, описани по-горе.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
' Заглавен слайд
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
' Добавя празен слайд на второ място
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
' Запазете новия PowerPoint файл
NewPres.SaveAs("MyPresentation.pptx")
End SubСлед това можете да разгледате нашия урок за програмно създаване на форми в PowerPoint с VBA.
Последният случай е, че искате да създадете презентация на PowerPoint направо от електронна таблица на Excel. Можете да използвате същата техника от Word и други приложения на Microsoft 365.
| Стъпка | Описание |
|---|---|
| 1 | Свържете електронната таблица с модела на данни на PowerPoint (от Инструменти > Справки) |
| 2 | Поставете бутон във вашата електронна таблица на Excel (Разработчик > Вмъкване и след това изберете команден бутон). |
| 3 | Поставете кода на VBA по-долу във вашия VBA проект за електронна таблица (директно в листа или в VBA модул). |
| 4 | Променете скрипта според изискванията. |
| 5 | Пуснете (натиснете F5) и тествайте резултата. |
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End SubИзползвайте този прост шаблон за матрица за делегиране на задачи в Word, за да зададете собственици, ограничения за решения, крайни срокове и контролни точки, без да усложнявате прекалено малкия екип.
Използвайте този лесен за печат лист за посещаемост на детски градини за домашни грижи, с имена на децата, часове на пристигане/заминаване, подписи и съвети за съответствие.
Използвайте този шаблон за маркетингова стратегия от една страница, който може да се отпечата, за да дефинирате вашата местна аудитория, оферта, канали, бюджет, седмични действия и измерими цели.
Спрете Excel да конвертира стойности като 1/2, 11-53 или JAN1 в дати. Научете надеждни решения за въвеждане, поставяне, импортиране на CSV файлове и вече конвертирани клетки.
Създайте изискан PowerPoint за обява за недвижими имоти безплатно с практичен план на слайдовете, снимка, брандиране, достъпност, съответствие и съвети за експорт.
Поправете Outlook, когато получавате имейли, но не можете да изпращате. Проверете Изпращача, офлайн режима, влизането, SMTP настройките, профили и промените в Microsoft 365.
Създайте прост двуседмичен трекер на заплатите в Excel за малък екип, включващ работно време, възнаграждения, удръжки, маркери за преглед, обобщения и насоки за водене на записи.
Build or customize a printable event planning checklist and budget template in Microsoft Word, with practical sections, tradeoffs, and tips for Word vs. Excel.
Създайте проста презентация за въвеждане в длъжност с практична структура от 12 слайда, обхващаща очакванията за ролята, инструменти, сигурност, политики, безопасност и действия за първата седмица.
Експортирайте контакти от Salesforce в Excel чисто: създайте правилния отчет, експортирайте само детайли в CSV, импортирайте с Power Query, запазете ID-тата и водещите нули, премахнете дублираните записи безопасно и проверете резултата.
Петя -
Имам опит с VBA, но не знаех, че може да се използва за PowerPoint. Радвам се, че намерих тази статия! Ще я споделя с колегите си
Нина -
Тази тема е наистина важна за много от нас! Благодаря за информацията, определено ще я изпробвам на следващия си проект.
Мартин IT -
Имам въпрос! Как мога да настроя макросите, за да добавя автоматично изображения към слайдовете? Лесно ли е
Димитър Mèo -
Знаех, че VBA може много, но да добавя слайдове в PowerPoint? Това е невероятно! Определено ще пробвам.
Иван -
Страхотна статия! Никога не съм си представял, че мога да добавям слайдове в PowerPoint с VBA. Благодаря за полезната информация.
Елена -
Наистина полезно! Споделям, че следвайте тези стъпки и определено ще ви спести много време при създаването на презентации
Соня -
Какви са ограничението на VBA при работа с PowerPoint? Има ли функции, които не мога да използвам?
Радостина 123 -
Тази информация е живото решение на проблема ми! Работя с PowerPoint всеки ден и просто не знаех как да автоматизирам процеса до сега. Благодаря ви
Симеон -
Много съм впечатлен от начина, по който е написана статията. Лесно е да се разбере и следва. Сега мога да добавям слайдове с VBA
Тихомир -
Много полезно! Бих предложил да добавите и примери с код за по-добро разбиране. Винаги е интересно да се види как работи