Мы готовим сотни документов Powerpoint в неделю для использования с программным обеспечением для чтения с экрана, и нам нужно удалить все анимации и переходы с каждого из них. Я хотел бы написать надстройку Powerpoint, которая автоматически делает это при загрузке файла. Я выяснил, как удалить все анимации, используя следующий код в подпрограмме auto_open()
, которую я импортировал как надстройку:
'Loop Through Each Slide in ActivePresentation
For Each sld In ActivePresentation.Slides
'Loop through each animation on slide
For x = sld.TimeLine.MainSequence.Count To 1 Step -1
'Remove Each Animation
sld.TimeLine.MainSequence.Item(x).Delete
Next x
Next sld
Однако я не уверен, как удалить переходы с помощью этого метода. Я по существу решил проблему визуально , добавив в этой строке
sld.SlideShowTransition.Duration = 0
но я бы хотел полностью удалить переходы, поскольку они мешают программному обеспечению для чтения с экрана клиентов. Удаление объекта в виде парадигмы VBA (SlideShowTransition.Delete
) не работает.
Есть идеи?
Заранее спасибо.