Lucrul cu elementele Master

VBA folosește obiectul Master pentru a reprezenta diferitele elemente master pe care PowerPoint le utilizează: slide master, title master, handout master și notes master.

Lucrul cu coordonatorul de diapozitive - Slide Master

Pentru a lucra cu coordonatorul de diapozitive pentru o prezentare, utilizați proprietatea SlideMaster a obiectului Prezentare.

Pentru a returna coordonatorul de diapozitive pentru un diapozitiv, utilizați proprietatea Master a obiectului Slide corespunzător. De exemplu, următoarea instrucțiune adaugă un titlu la coordonatorul de diapozitive pentru prezentarea activă (dacă coordonatorul de diapozitive are deja un titlu, VBA returnează o eroare):

ActivePresentation.SlideMaster.Shapes.AddTitle.TextFrame.TextRange.Text = _ 
    "Orientation"

Lucrul cu coordonatorul de titlu – Title Master

Pentru a afla dacă o prezentare are un coordonator de titlu, verificați proprietatea HasTitleMaster. Dacă nu, utilizați metoda AddTitleMaster a obiectului Presentation pentru a adăuga un coordonator de titlu, ca în exemplul următor. Dacă prezentarea are deja un coordonator de titlu, VBA returnează o eroare atunci când încercați să adăugați un coordonator de titlu:

If Not ActivePresentation.HasTitleMaster Then _
ActivePresentation.AddTitleMaster

Pentru a returna coordonatorul de titlu pentru prezentare, utilizați proprietatea TitleMaster a obiectului Prezentare. Următorul exemplu verifică dacă coordonatorul de titlu există și, dacă există, formatează data și ora pentru a fi vizibile și de a utiliza formatul dMMMyy cu actualizarea automată:

With myPresentation
  If .HasTitleMaster Then
      With .TitleMaster.HeadersFooters.DateAndTime
           .Visible = msoTrue
           .Format = ppDateTimedMMMyy
           .UseFormat = msoTrue 
      End With
  End If 
End With

Lucrul cu Handout Master

Pentru a lucra cu handout master, folosiți proprietatea HandoutMaster a obiectului Presentation pentru a returna obiectul Master. Următorul exemplu utilizează proprietatea HandoutMaster a obiectului ActivePresentation pentru a umple fundalul handout master cu o imagine:

With ActivePresentation.HandoutMaster.Background
   .Fill.ForeColor.RGB = RGB(255, 255, 255)
   .Fill.BackColor.SchemeColor = ppAccent1
   .Fill.UserPicture "d:\igrafx\dawn.jpg"
End With

Lucrul cu Notes Master

Pentru a lucra cu Notes Master, folosiți proprietatea NotesMaster a obiectului Presentation pentru a returna obiectul Master. De exemplu, următoarea declarație șterge obiectele HeaderFooter din Notes Master din prima prezentare deschisă:

Presentations(1).NotesMaster.HeadersFooters.Clear

Ștergerea unui element Master

Puteți șterge title master sau handout master, dar nu și slide master sau notes master. Pentru a șterge title master sau handout master, folosiți metoda Delete a obiectului Master. Următorul exemplu verifică dacă prezentarea activă are un Title Master și apoi îl șterge:

If ActivePresentation.HasTitleMaster Then _ 
   ActivePresentation.TitleMaster.Delete