Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Font vorhanden?

Forumthread: Font vorhanden?

Font vorhanden?
25.07.2007 12:02:38
Klaus
Hallo Forum,
wie kann ich per bedingter Formatierung oder VBA abzufragen, ob ein Font existiert und die Schriftfarbe dementsprechend auf schwarz bzw. weiss setzen?
Hintergrund:
Ich benutze einen Barcode-Font, der nicht auf jedem Rechner installiert ist. Der Ausdruck des Barcodes in der voreingestellen Schriftart soll verhindert werden.
Grüße,
Klaus M.vdT.

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Font vorhanden?
25.07.2007 12:47:57
Rudi
Hallo,
eine Liste der Schriften bekommst du so:

Sub SchriftLesen()
Dim C As CommandBarControl
Dim i As Integer
Set C = CommandBars.FindControl(ID:=1728)
For i = 1 To C.ListCount
With Cells(i, 1)
.Value = C.List(i)
.Font.Name = C.List(i)
End With
Next i
End Sub


Vielleicht kannst du dir das anpassen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige