Персональные инструменты
 

Как получить из 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».


Репликация: База Знаний «Заказных Информ Систем» → «Как получить из PowerPoint PDF с переходами?»