Yazı Tiplerini Biçimlendirerek Listele - Microsoft Excel

Sistemdeki yazı tiplerini listeleyen, bunu yaparken de her hücrenin yazı tipini ilgili yazı tipi olarak belirleyen VBA kodudur.

Kod


Option Explicit

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

    Application.ScreenUpdating = True
End Sub

Etiketler

microsoft excel microsoft excel vba microsoft excel vba biçimlendirme işlemleri microsoft excel vba listeleme işlemleri