VBA Tipp: Feststellen ob Schriftart installiert

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

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

Lösung

Public Function FontIsInstalled(FontName As String) As Boolean
' Quelle: http://www.herber.de/forum/archiv/1272to1276/1275346_Per_VBA_ermitteln_ob_Schriftart_verfuegbar.html
Dim sFond As New StdFont
 
sFond.Name = FontName
FontIsInstalled = StrComp(FontName, sFond.Name, vbTextCompare) = 0
 
End Function

Aufruf

Z.B.:

If Not FontIsInstalled("Calibri") Then
  Msgbox "Die Schriftart 'Calibri' ist nicht installiert."
End If
Wiki hinweis.png Anmerkung: Verweis auf OLE Automation wird benötigt.