Test fontu
' 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