Како копирати додане слајдове у своју ПоверПоинт презентацију помоћу ВБА макроа?

Последње ажурирање: јун 2020

Применљиво на: Оффице 2019 и старије. Само Виндовс.

Ево питања читаоца:

Као део моје презентације тромесечног извештаја менаџменту, често морам да копирам неколико слајдова општих информација из других презентација. Није велика ствар, али би била значајна уштеда када бисмо могли да аутоматизујемо ову вежбу. Свака ВБА макро помоћ да се то постигне је цењена!

Као што сте управо споменули, можете аутоматизовати копирање и лепљење слајдова у ПоверПоинт користећи Висуал Басиц за апликације. Ако треба да креирате неколико презентација сваког месеца, ова аутоматизација за копирање/увоз слајдова могла би да уштеди време!

ПоверПоинт ВБА за додавање слајдова

Хајде да наставимо са овом једноставном вежбом.

Прво, уверите се да је ваша картица за развој омогућена и видљива. Ево како то учинити .

Претпостављам да сте већ креирали презентацију са омогућеним макроима (тип датотеке је .пптм), да сте ставили у исти директоријум као и ваша изворна презентација (коју ћу назвати соурце.пптм). Ево како да направите ПоверПоинт презентацију помоћу ВБА .

Прво, направимо резервну копију те презентације (једноставно копирајте и сачувајте).

Онда хајде да наставимо и убацимо следећи макро у нови ВБА модул у вашој одредишној презентацији. Све детаље о томе како то учинити можете пронаћи у нашем ПоверПоинт ВБА водичу .

Ево ВБА кода који ће вам требати да бисте аутоматски копирали и налепили слајдове.

Неколико претпоставки које сам направио:

• Ваша изворна презентација се зове соурце.пптм
•  Налепићете слајдове 2-4 из изворне презентације
• Копиране слајдове ћете поставити на почетни слајд 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Очигледно, слободно промените индексирање бројева слајдова у коду тако да се уклапају у ваше захтеве.

Можете да га натерате да прође кроз неколико презентација и да уметнете одређене слајдове из сваке у свој извештај управљања.

ПоверПоинт ВБА за умножавање слајдова

Уместо копирања слајдова у другу презентацију, можда ћете желети да клонирате један или више слајдова у својој презентацији:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

То је био само неколико једноставних примера ПоверПоинт аутоматизације. Читаоци који траже конкретна питања, слободно пошаљите упит путем странице Контакт.

Надам се да помаже 🙂