czwartek, 19 kwietnia 2018

Protip do PowerPointa

Powiedzmy, że pracujecie w dużej firmie, powiedzmy, że macie wielką prezentacje w ppt do wysłania. Na pewno już wykorzystaliście większość standardowych tricków takich jak:
  • kompresowanie zdjęć, 
  • usuwanie linków do exceli, 
  • usuwanie ukrytych slajdów.
Ale prezentacja wciąż waży dziesiątki milionów bajtów. Jest jeszcze jeden trick, który może Wam pomóc. Nieco bardziej zaawansowany, ale jak go opanujecie to zobaczycie, że trwa moment a dużo poprawia:

Usuwanie nieużywanych wzorców z widoku wzorców. 

Można to zrobić ręcznie korzystając z widoku wzorca slajdów:

lecz jest dużo lepsza i wielokrotnie szybsza metoda:

1. Otwieramy w Powerpoincie widok Dewelopera: Alt + F11
2. Dodajemy nowy moduł:


3. wklejamy do niego poniższy kod:
Sub SlideMasterCleanup()

Dim i As Integer
Dim j As Integer
Dim oPres As Presentation
Set oPres = ActivePresentation
On Error Resume Next
With oPres
    For i = 1 To .Designs.Count
        For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
            .Designs(i).SlideMaster.CustomLayouts(j).Delete
        Next
    Next i
End With

End Sub
4. Odpalamy to makro 
5. Zapisujemy prezentacje pod zmienioną nazwą. (Uwaga: PowerPoint będzie się pytał czy chcemy zapisać prezentacje bez makr. Odpowiadamy tak i nasze makro będzie usunięte.

Gotowe. Prezentacja powinna być wyraźnie mniejsza :D