Per VBA ermitteln, ob Schriftart verfügbar
Günther
Ich würde gerne per VBA ermitteln, ob auf dem jeweiligen System eine bestimmte Schriftart verfügbar ist oder nicht. Also eine Funktion die in etwas so beginnen würde:
Function fctSchriftartVerfügbar(Schriftname as string) as boolean
End Function
Wenn man Zugriff auf den Fonts-Ordner hat, wäre es denkbar auf TTF-Dateien mit diesen (oder ähnlichem) Namen zu prüfen, aber so recht begeistern kann mich der Ansatz nicht.
Ein weiterer Ansatz wäre es, den fraglichen Schriftartname in Großbuchstaben umzuwandeln, einer Testzelle zuzuweisen und dann die erhaltene Schriftart wieder auszulesen. Wenn die Großschreibung geblieben ist, dann existiert die Schriftart (i.A.) nicht. Begeistert mich aber auch nicht so recht.
Ich würde nach einem besseren Ansatz suchen, der irgendwie direkt abfragt, ob diese Schriftart im Windows installiert ist oder nicht.
Herzlichen Dank im voraus für alle Vorschläge und Lösungen.
Grüße
Günther