|
Персональные инструменты |
|||
|
Как получить из PowerPoint PDF с переходами?Материал из CustisWikiВерсия от 20:33, 7 февраля 2012; StasFomin (обсуждение | вклад) Это снимок страницы. Он включает старые, но не удалённые версии шаблонов и изображений. Часто стоит задача получить из PowerPointа PDF — например, для показа под LibreOffice, загрузки презентации куда-то, или для видеомонтажа, вариантов масса. Однако стандартный экспорт в PDF порождает только один слайд для полуанимированного слайда, разбитого на несколько промежуточных слайдов (постепенно появляющиеся элементы). С этим, можно поборотся следующим полухаком (результат не 100%, но сильно лучше, чем ничего), засунув и запустив следующий макрос: Sub AddElements() Dim shp As Shape Dim i As Integer, n As Integer n = ActivePresentation.Slides.Count For i = 1 To n Dim s As Slide Set s = ActivePresentation.Slides(i) s.SlideShowTransition.Hidden = msoTrue Dim max As Integer: max = 0 For Each shp In s.Shapes If shp.AnimationSettings.Animate = msoTrue Then If shp.AnimationSettings.AnimationOrder > max Then max = shp.AnimationSettings.AnimationOrder End If End If Next Dim k As Integer, s2 As Slide For k = 0 To max Set s2 = s.Duplicate(1) s2.SlideShowTransition.Hidden = msoFalse s2.MoveTo ActivePresentation.Slides.Count Dim i2 As Integer For i2 = s2.Shapes.Count To 1 Step -1 With s2.Shapes(i2) If .AnimationSettings.Animate = msoTrue Then If .AnimationSettings.AnimationOrder > k Then .Delete Else .AnimationSettings.Animate = msoFalse End If End If End With Next Next Next End Sub[1]
Любые правки этой статьи будут перезаписаны при следующем сеансе репликации. Если у вас есть серьезное замечание по тексту статьи, запишите его в раздел «discussion».
|
||