Test fontu

Funkce:
' Test, zda je jméno a velikost fontu podporována. 
' Pokud ano, vrací True, jinak False. 
' Pokud je podporován font a ne jeho velikost, funkce vrací 
' ve druhém argumentu aktuální velikost fontu. 
' Pokud není font podporován vůbec, funkce vrátí v argumentech 
' jméno a velikost systémového fontu

Function CheckFont(fontName As String, Optional fontSize As Integer) As Boolean 

   On Error Resume Next 

   ' Vytvoření dočasného objektu StdFont
   With New StdFont 
      ' Přiřazení požadovaného fontu 
      .Name = fontName 
      If fontSize > 0 Then 
         .Size = fontSize 
         ' Vrací True, pokud bylo přiřazení úspěšné
         CheckFont = (StrComp(fontName, .Name, vbTextCompare) = 0) 
         ' Do argumentu nastaví aktuální jméno a velikost fontu 
         fontName = .Name 
         fontSize = .Size 
      End With 

End Function

Zpět

Autor: The Bozena