Schriftarten auslesen
06.09.2006 14:36:37
André
auf anderen Datenträgern und Laufwerken, wie unter C>
Dieses Makro gibt nämlich in Spalte A die Namen jeder Schriftart aus und in
Spalte B den von mir geschriebenen Text in der jeweiligen Schriftart.
Das Makro habe ich vor ca. 1/2 Jahr hier im Forum gefunden und mir Typograf zur
Schriftenverwaltung geholt. Allerdings funktioniert die Schriftenverwaltung
nur unter einem anderen Pfad, wie unter C>
CBC steht ja für Systemdatei. Oder?
Sub SchriftartenLesen()
Dim CBC As CommandBarControl
Dim iCnt As Integer, strTxt As String
Application.ScreenUpdating = False
strTxt = InputBox("Testtext:", "")
If strTxt = "" Then Exit Sub
Set CBC = Application.CommandBars.FindControl(ID:=1728)
For iCnt = 1 To CBC.ListCount
With Cells(iCnt, 2)
.Value = strTxt
.Font.Name = CBC.List(iCnt)
End With
Cells(iCnt, 1) = CBC.List(iCnt)
Next iCnt
Columns("A:B").AutoFit
Application.ScreenUpdating = True
End Sub
Mit freundlichen Grüßen
André Poppek
Anzeige