list fonts with samples Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub yazitipleri()
  Dim SchrNr As Integer, Schriftliste As Object, Text As Variant
  Set Schriftliste = Application.CommandBars("formatting").FindControl(Id:=1728)
  Application.ScreenUpdating = False
  On Error Resume Next
  [A:D].ClearContents
  For SchrNr = 0 To Schriftliste.ListCount - 1
    Cells(SchrNr + 1, 1).Value = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 2).Value = "€"        'Eurosymbol
    Cells(SchrNr + 1, 3).Value = "abcdefghijklmnopqrstuvwxyzäöü"
    Cells(SchrNr + 1, 4).Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
    Cells(SchrNr + 1, 2).Font.Name = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 3).Font.Name = Schriftliste.List(SchrNr + 1)
    Cells(SchrNr + 1, 4).Font.Name = Schriftliste.List(SchrNr + 1)
  Next
  [A:D].EntireColumn.AutoFit
  Application.ScreenUpdating = True
  
  ' Warnmeldung zuviele Schriften hier einstellbar:
  If SchrNr > 200 Then
    Text = Chr(13) & Chr(13) & "Achtung!" & Chr(13) & _
    "Sie haben viel zu viele Schriftarten installiert"
  End If
  MsgBox "     Es wurden insgesamt " & SchrNr & " Schriftarten gefunden." _
    & Chr(13) & "Im Feld mit der Roten Schrift sieht man das Eurosymbol," _
    & Chr(13) & "                     wenn die Schrift Eurofähig ist," _
    & Chr(13) & "                           sonst nur ein Kästchen" & Text
End Sub

No	Macro Name
1	list fonts with samples
2	fonts in word
3	excel fonts 2
4	excel fonts
5	print fonts to a sheet / page
6	excel operators hk
7	desktop icon creation
8	Remove Characters from a Directory: Remove only characters from the beginning of a text string. All you need is to reference a cell or add a number of characters and text to the function to remove from the text string. There are two arguments,rng" for the text string andcnt" for the number of characters to remove. for example: 1 incnt if you want to remove the first characters from a cell;
9	list formulas on new sheet / page
10	specifies in detail how many formulas are in the book (on new sheet / page)
11	prints the path and name of the file to the cell
12	Search for a word in 30 excel files
13	Add Quick Access to custom Lists. Add custom List Access to the Right-Click Menu
14	Give the macro path to the combobox tryit without userform
15	specifies in detail how many references the book contains (on new sheet / page)
16	List the names of Excel files in a folder then give them a link
17	I want to throw the full cells in row with text between a1: an1000 into listbox
18	Write folder path to cell b1 list xls files
19	list of spelling words
20	Finding the Number of Each Item in the List Using the VBA and Pivot Table

Excel Free Macros (VBA)

List Fonts With Samples

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords