PowerPoint utilizează obiectele HeaderFooter pentru a reprezenta anteturile, subsolurile, numerele de diapozitive și data și ora diapozitivelor. Obiectele HeaderFooter sunt organizate în colecția HeadersFooters, pe care le accesați prin proprietatea HeaderFooters a obiectului Master, un obiect Slide sau o colecție SlideRange.

Atenție: Înainte de a putea executa următoarele exemple de cod, trebuie mai întâi să adăugați un subsol la diapozitivele din prezentarea activă. Exemplele de cod se așteaptă să modifice un subsol existent, nu să îl creeze (spre deosebire de Excel, unde se va crea automat un antet sau un subsol nou).

Deci, înainte de a executa aceste exemple, faceți clic pe eticheta Insert de pe panglica PowerPoint, apoi, în zona Text, faceți clic pe Header And Footer pentru a deschide caseta de dialog Header And Footer. În această casetă de dialog, faceți clic pe caseta de selectare Date And Time și pe Footer. Apoi faceți clic pe butonul Apply To All.

Returnarea obiectului antet sau subsol dorit

Pentru a accesa obiectul dorit, utilizați proprietatea corespunzătoare a obiectului HeaderFooter:

• Utilizați proprietatea DateAndTime pentru a returna data și ora.
• Utilizați proprietatea Footer pentru a returna subsolul.
• Utilizați proprietatea Header pentru a returna antetul pe o pagină de note sau o fișă de mână (handout). Diapozitivele în sine nu pot avea un antet.
• Utilizați proprietatea SlideNumber pentru a returna numărul diapozitivului dintr-un diapozitiv sau numărul paginii de pe o pagină de note sau într-o fișă handout.

Următorul exemplu utilizează proprietatea Footer pentru a seta textul obiectului HeaderFooter din primul diapozitiv din prezentarea activă:

ActivePresentation.Slides(1).HeadersFooters.Footer.Text = "Exercitiul 102"

Afișarea sau ascunderea unui obiect antet sau subsol

Pentru a afișa obiectul HeaderFooter, setați proprietatea sa Visible la msoTrue (sau doar True). Pentru a ascunde obiectul HeaderFooter, setați proprietatea sa Vizible la msoFalse. De exemplu, următoarea instrucțiune ascunde subsolul de pe diapozitivul cinci din prezentarea activă:

ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = False

Setarea textului într-un antet sau subsol

Pentru a seta textul dorit într-un obiect HeaderFooter, atribuiți un șir care conține textul proprietății Text a obiectului. De exemplu, următoarea instrucțiune setează textul subsolului celui de-al cincilea diapozitiv din prezentarea activă la: Confidențial

ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential"

Dacă ați executat codul din exemplul anterior, executarea acestui exemplu va declanșa un mesaj de eroare. Asta pentru că ați făcut subsolul pentru diapozitivul 5 invizibil în codul anterior. Pentru a putea seta textul din acest diapozitiv, acesta trebuie mai întâi să fie vizibil:

ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = True

ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential"

Setarea formatului pentru anteturile și subsolurile de dată și oră

Dacă diapozitivele, paginile de note sau fișele handout folosesc date și ore în subsolurile sau anteturile lor, utilizați proprietatea Format pentru a specifica modul în care ar trebui să apară datele și orele. Tabelul următor enumeră constantele pe care le puteți utiliza (Formatul datei poate să difere și funcție de setările regionale și pentru limbă).

Setați proprietatea UseFormat a HeaderFooter la msoTrue dacă doriți ca data și ora să fie actualizate automat. Setați UseFormat la msoFalse dacă doriți ca data și ora să rămână neschimbate.

Următorul exemplu afișează data curentă în format Wednesday, February 19, 2020:

Sub SetFooter()

Dim objPresTation As Presentation

Set objPresTation = Application.ActivePresentation

  With objPresTation.Slides(2).HeadersFooters.DateAndTime

    .UseFormat = True

    .Format = ppDateTimeddddMMMMddyyyy

  End With

End Sub