VBA Tipp: Feststellen ob Schriftart installiert

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte feststellen, ob eine bestimmte Schriftart in Windows installiert ist.

Lösung

Public Function IstSchriftartInstalliert(Schriftname As String) As Boolean
 
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim objFont As New stdole.StdFont
 
   objFont.Name = Schriftname
   IstSchriftartInstalliert = StrComp(Schriftname, objFont.Name, vbTextCompare) = 0
 
End Function

Aufruf

   Dim strSchriftart As String
 
   strSchriftart = "Calibri"
 
   If IstSchriftartInstalliert(strSchriftart) Then
      MsgBox "Die Schriftart '" & strSchriftart & "' ist installiert."
   Else
      MsgBox "Die Schriftart '" & strSchriftart & "' ist nicht installiert."
   End If
Wiki hinweis.png Anmerkung: Der VBA-Verweis auf OLE Automation (Access-Standardverweis) muss gesetzt sein.


Weblinks