PowerPoint - Вишеструки шаблони у верзији 2002/XP (II део)

Колекција са шаблонима може бити додата презентацији на више начина:

• Методом Add: Дизајн шаблона одређеног назива може бити додат методом Add. При томе, назив дизајна мора бити уникатан. Овај метод додаје шаблон са подразумеваним slide master-ом у постојећу колекцију. Индекс аргументом одређује се локација коју ће шаблон заузети унутар колекције. Уколико је изостављен, увек ће се лоцирати на крај колекције. Такође, можете користити AddTitleMaster метод ради додавања title master-а у овај шаблон:
  
  Sub AddADesign()
  ActivePresentation.Designs.Add
  DesignName:="ABlankDesign", Index:=1
  ActivePresentation.Designs(1).AddTitleMaster
  End Sub

• Методом Clone: шаблон може бити клониран методом Clone. Клонирање одговара процесу креирања копије већ постојећег шаблона унутар колекције Designs.
  
  Sub CloneADesign()
  Dim CloneDesign As Design
  With ActivePresentation
  Set CloneDesign = .Designs.Clone(.Designs(1))
  CloneDesign.Name = "Sablon_dizajn"
  End With
  End Sub

• Метод Load: Овај метод се користи за убацивање екстерног шаблон фајла (екстензије *.pot) у Designs колекцију. Све док није обезбеђен индекс аргумент, нови шаблон ће бити додат на крај колекције (као у наредном примеру):
  
  Sub LoadADesign()
  ActivePresentation.Designs.Load "C:\Sabloni\MojSablon.pot"
  End Sub