Funcția de mai jos este realizată ca exemplu pentru PowerPoint. Funcția verifică dacă tot textul dintr-un diapozitiv are fontul de dimensiunea minimă specificată și afișează o casetă cu un mesaj de eroare dacă dimensiunea este mai mică. (Se apasă Alt + F11 pentru a deschide VBA Editor, apoi dacă nu apare fereastra Code, se alege Insert > Module, ca să apară fereastra în care se va scrie codul.)
Funcție în PowerPoint
1. Option Explicit
2.
3. Function VerificareMarimeFont(objPrezentare As Presentation) As Boolean
4.
5. Dim objSlide As Slide
6. Dim objShape As Shape
7.
8. VerificareMarimeFont = True
9.
10. For Each objSlide In objPrezentare.Slides
11. objSlide.Select
12. objSlide.Shapes.SelectAll
13. For Each objShape In Windows(1).Selection.ShapeRange
14. If objShape.Type = msoPlaceholder Then
15. If objShape.TextFrame.TextRange.Font.Size < 14 Then
16. VerificareMarimeFont = False
17. Exit Function
18. End If
19. End If
20. Next objShape
21. Next objSlide
22. End Function
23.
24. Sub Verificare_Font()
25. If VerificareMarimeFont(ActivePresentation) = False Then
26. MsgBox "Unele fonturi din prezentare sunt prea mici." _
& vbCr & vbCr & "Modificati marimea fontului la cel putin 14 puncte.", vbCritical + vbOKOnly, "Verificare marime font"
27. End If
28. End Sub
Iată cum funcționează codul: