Vor dem Setzen einer Schriftart, beispielsweise eines Labels,
    ist es sinnvoll zunächst zu überprüfen, ob diese Schriftart
    überhaupt installiert ist.

ERFORDERLICHE OBJEKTE      

   1 CommandButton (Command1)
 FORM-CODE

   Public Function Schriftart_installiert(SchriftName As String) As Boolean
      Dim Schrift As New StdFont
      Schrift.Name = SchriftName
      Schriftart_installiert = StrComp(SchriftName, Schrift.Name, _
         vbTextCompare) = 0
   End Function

   Private Sub Command1_Click()
      Dim Schrift As String
      Schrift = "Verdana"
      MsgBox "Schriftart " & Schrift & " installiert -> " _
         & Schriftart_installiert(Schrift)
   End Sub

 siehe auch

    Schriftart verwenden, ohne diese zu installieren