VBA/Excel/Access/Word/PowerPoint/Slide Tempalte

Материал из VB Эксперт
Перейти к: навигация, поиск

Applies the design template named Disaster.pot to a range of slides consisting of the first, fourth, and sixth slides in the active presentation

Sub range()
    ActivePresentation.Slides.Range(Array(1, 4, 6)).ApplyTemplate _
End Sub

Applying a Template to a Presentation, to a Slide, or to a Range of Slides

Sub applyTemplate()
    ActivePresentation.Slides(1).ApplyTemplate FileName:= "C:\Clouds.pot"
End Sub

Apply the design template named Mountain Top.pot to the first slide in the presentation named Success.ppt:

Sub apply()
    Presentations("Your.ppt").Slides(1).ApplyTemplate FileName:= "C:\Top.pot"
End Sub