Prüfen, ob Schriftart installiert
Geschrieben von admin am 31. März 2010 | Abgelegt unter iGoogle Gadgets
Tipp vom 22.03.2010
Mit dieser Funktion kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.
‘ Prüft, ob die angegebene Schrift existiert
Public Function SystemFontExists(sFontFileName As String) As Boolean
Dim SystemFont As New StdFont
SystemFont.Name = sFontFileName
SystemFontExists = IIf(sFontFileName = SystemFont.Name, True, False)
End Function
Aufruf der Funktion:
Dim strFontFileName As String
strFontFileName […]