Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schrifttypen auslesen und in eine Mappe schreiben.

Schrifttypen auslesen und in eine Mappe schreiben.
26.10.2004 19:30:23
Marco
Hallo,
kann mir einer erzählen wie ich mit einer Makroprogrammierung alle meine installierten Schriften auslesen kann und diese dann in groß und Kleinschrift in ein Exceldokument ausgebe? also klein und Großschreibung von A-Z a-z am besten noch in einer frei wählbaren Schriftgröße.
ivd.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schrifttypen auslesen und in eine Mappe schreiben.
26.10.2004 19:52:27
Nepumuk
Hi,
die Schrifrgröße kannst du über Excel selbst wählen.


Sub SchriftAuslesen()
'   Von GraFri
    Dim cnt         As CommandBarControl
    Dim intCounter  As Integer
    Dim strText     As String
     
    strText = "abcdefghijklmnopqrstuvwxyz"
     
    Application.ScreenUpdating = False
     
    Set cnt = Application.CommandBars.FindControl(ID:=1728)
     
    For intCounter = 1 To cnt.ListCount
        With Cells(intCounter, 1)
            .Value = cnt.List(intCounter)
'            .Font.Name = cnt.List(intCounter)
        End With
        With Cells(intCounter, 2)
            .Value = strText
            .Font.Name = cnt.List(intCounter)
        End With
        With Cells(intCounter, 3)
            .Value = UCase(strText)
            .Font.Name = cnt.List(intCounter)
        End With
    Next intCounter
     
    Columns(1).AutoFit
    Application.ScreenUpdating = True
End Sub


Gruß
Nepumuk
Anzeige
AW: Schrifttypen auslesen und in eine Mappe schreiben.
ypsilon
hi Marco,
ähh : was soll ivd. heissen ?
so in etwa ?

Sub Schriftartenliste()
Dim SchriftNr As Integer, Schriftliste As Object
Set Schriftliste = Application.CommandBars("formatting").FindControl(ID:=1728)
On Error Resume Next
ScreenUpdating = False
[A:C].ClearContents
For SchriftNr = 0 To Schriftliste.ListCount - 1
Cells(SchriftNr + 1, 1).Value = Schriftliste.List(SchriftNr + 1)
Cells(SchriftNr + 1, 2).Value = "abcdefghijklmnopqrstuvwxyzäöü"
Cells(SchriftNr + 1, 3).Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
Cells(SchriftNr + 1, 2).Font.Name = Schriftliste.List(SchriftNr + 1)
Cells(SchriftNr + 1, 3).Font.Name = Schriftliste.List(SchriftNr + 1)
Next
[A:C].EntireColumn.AutoFit
ScreenUpdating = True
End Sub

cu Micha
Anzeige
AW: Schrifttypen auslesen und in eine Mappe schreiben.
Marco
Hiho,
klasse so klappt das - danke für die Mühe!
ivd = im voraus Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige