VBA/Excel/Access/Word/PowerPoint/Slide Tempalte
Версия от 16:33, 26 мая 2010; (обсуждение)
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 _
FileName:="C:\Your.pot"
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