Phenquestions
Когато много хора работят по множество Презентации в PowerPoint и след това трябва да ги обедините накрая, става предизвикателно. Основната причина е форматирането. Ако екипите не са синхронизирани помежду си, ще стане болезнена работа да ги приведете в същия формат.
Microsoft PowerPoint предлага вътрешно решение точно като Word и Excel, което ще ви позволи да обедините множество презентации на PowerPoint и да запазите форматирането непокътнато. Правилният начин да направите това е да помолите всички да използват една и съща тема. Уверете се, че сте настроили темата PowerPoint в един файл и след това я споделете с всички.
Как да обедините няколко презентации на PowerPoint
Имаме три начина за обединяване на множество файлове на PowerPoint. Докато първият е добър, когато имате по-малко числа, и запазването на форматирането е основната цел. Вторият може да комбинира произволен брой файлове, налични в дадена папка.
- Метод за повторно използване на слайдове
- Метод на кода на VBA
- Копиране на поставяне на слайдове.
Всеки метод има своето предимство и недостатък. Изберете разумно.
1] Метод за повторно използване на слайдове
Microsoft PowerPoint предлага вграден инструмент- Повторно използване на слайдове. Позволява ви да импортирате единични или множество слайдове във вашата презентация от друг, без да се налага да отваряте другия файл. Когато използвате тази опция, не забравяйте да изберете опцията за форматиране, особено ако искате да имате същата тема като изходния файл.
- Отворете нов файл на Powerpoint или съществуващ, където искате да обедините слайдовете.
- Изберете слайда, след който искате да вмъкнете слайдовете от изходния файл.
- Отидете на Начало> Нов слайд> Повторно използване на слайд.
- Прегледайте, за да изберете файла, който искате да обедините. След това кликнете върху бутона със стрелка.
- Той ще разкрие всички страни, налични на този слайд.
- Кликнете върху слайда, който искате да вмъкнете, и той незабавно ще бъде добавен към слайда.
- Ако искате да запазите формата точно като изходния слайд, поставете отметка в квадратчето, което казва: „Запазете форматирането на източника.”
Всеки слайд, който добавите тук, е копие. Изходният файл остава непокътнат и няма да се правят промени в него. Всяка промяна, която направите в обединения документ, няма да стане достъпна в оригиналния файл.
Една от най-добрите части за импортиране по този метод е тази ще запази всички анимации или преходи. По-рано не беше така и трябваше да се използва методът Object, последван от множество конфигурации, за да работи. Обектният метод е полезен само ако искате да опаковате множество файлове в един.
2] VBA метод на кода
Тъй като няма естествен метод за обединяване на множество презентации на PowerPoint, ще трябва да използваме VBA код, точно както направихме за обединяване на файлове на Excel. Той е прав и работи по-добре в сравнение с VBA кода, който използвахме за Excel. Кодът работи добре за мен и успях да обединя 3 PowerPoint файла на стойност 60 слайда.
В новия или съществуващия файл на PowerPoint, където искате да обедините всички презентации, натиснете ALT + F11
Кликнете върху Вмъкване> Модул и поставете кода вътре в този модул. Не се притеснявайте да го запазвате.
Sub InsertAllSlides () 'Вмъкване на всички слайдове от всички презентации в същата папка като тази' В тази; не се опитвайте да вмъквате ТОЗИ файл в себе си. Dim vArray () As String Dim x As Long ' Промяна "*.PPT "до" *.PPTX "или каквото и да е, ако е необходимо: EnumerateFiles ActivePresentation.Път & "C: \ PathtoSlidesYouWanttoImport", "*.PPT ", vArray с ActivePresentation За x = 1 към UBound (vArray) Ако Len (vArray (x))> 0 Тогава .Слайдове.InsertFromFile vArray (x), .Слайдове.Count End If Next End с End Sub Sub EnumerateFiles (ByVal sDirectory As String, _ ByVal sFileSpec As String, _ ByRef vArray As Variant) 'събира всички файлове, съответстващи на спецификацията на файла, във vArray, масив от низове Dim sTemp As String ReDim vArray ( 1 до 1) sTemp = Dir $ (sDirectory & sFileSpec) Do While Len (sTemp)> 0 'НЕ "корабът майка" ... текуща презентация Ако sTemp <> ActivePresentation.Име След това ReDim Запазете vArray (1 към UBound (vArray) + 1) vArray (UBound (vArray)) = sDirectory & sTemp End If sTemp = Dir $ Loop End Sub
Направете промените, които съм маркирал като получер.
Натиснете F5 и той ще изпълни кода
Той ще импортира всички слайдове от всички файлове, налични в тази папка. Той обаче ще загуби формата. Това е най-големият проблем с кода, но той може да обедини произволен брой файлове, което е най-същественото му предимство. Не забравяйте да премахнете кода на VBA, след като импортирането завърши. Кодът е от PPTFAQ.c0m.
3] Копиране на поставяне на слайдове
Използвам това понякога, когато има множество файлове, обикновено по-малко от три, и трябва да копирам само няколко слайда от тях. Въпреки че можете да използвате Ctrl + C и Ctrl + V, но ще загубите форматирането. Така че след като копирате слайда, щракнете с десния бутон върху раздела със списъка на слайдовете на целевия файл и изберете запазване на формата.
Надявам се, че всички тези методи са били лесни за следване и сте успели да обедините множество файлове на PowerPoint.
Уверете се, че сте избрали между броя на файловете за сливане и темата на слайда според вашите нужди.
Прочетете следващата: Как да обедините Word документи.
