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