Как узнать установлен ли шрифт

[Rostik Ultra]

Как узнать установлен ли определённый шрифт

[SCINER]

Option Explicit
 
Private Sub Form_Load()
  MsgBox FontIsSetup("Courier")
End Sub
 
Function FontIsSetup(ByVal FontName As String) As Boolean
  Dim F As New StdFont
  F.Name = FontName
  FontIsSetup = VBA.LCase$(F.Name) = VBA.LCase$(FontName)
End Function