Combobox' a font listesini almak

[tamer42]

Merhablar,

Excel ana sayfasında bilindiği üzere font tiplerini seçtiğimiz bir combox var, ekte;

bu listede yer alan fontların adını kendi oluşturacağımız bir User Form' da Combobox içine yüklemek mümkün müdür?

şimdiden teşekkürler,
iyi Çalışmalar.

 

[Zeki Gürsoy]

Kodu inceleyin...

Sub ShowInstalledFonts()
    Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)
    
[COLOR=DarkGreen]'   If Font control is missing, create a temp CommandBar[/COLOR]
    If FontList Is Nothing Then
        Set TempBar = Application.CommandBars.Add
        Set FontList = TempBar.Controls.Add(ID:=1728)
    End If
    
[COLOR=DarkGreen]'   Put the fonts into column A[/COLOR]
    Range("A:A").ClearContents
    For i = 0 To FontList.ListCount - 1
        Cells(i + 1, 1) = FontList.List(i + 1)
    Next i
    
[COLOR=DarkGreen]'   Delete temp CommandBar if it exists[/COLOR]
    On Error Resume Next
    TempBar.Delete
End Sub

http://j-walk.com/ss/excel/tips/tip79.htm

 

[hamitcan]

Dialog penceresini de kullanabilirsiniz.

Sub Font()
    Application.Dialogs(xlDialogFont).Show
End Sub

 

[tamer42]

Kodu inceleyin...

Sub ShowInstalledFonts()
    Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)
    
[COLOR=DarkGreen]'   If Font control is missing, create a temp CommandBar[/COLOR]
    If FontList Is Nothing Then
        Set TempBar = Application.CommandBars.Add
        Set FontList = TempBar.Controls.Add(ID:=1728)
    End If
    
[COLOR=DarkGreen]'   Put the fonts into column A[/COLOR]
    Range("A:A").ClearContents
    For i = 0 To FontList.ListCount - 1
        Cells(i + 1, 1) = FontList.List(i + 1)
    Next i
    
[COLOR=DarkGreen]'   Delete temp CommandBar if it exists[/COLOR]
    On Error Resume Next
    TempBar.Delete
End Sub

http://j-walk.com/ss/excel/tips/tip79.htm

Sn Zeki çok teşekkürler, paylaştığınız kodlarla font listesini excel sayfasına yazdırdım.

Bu aşamadan sonra bu kod listesinin Combobox' a aktardım.

ComboBox3.RowSource = "Font!a1:a" & son3

bu aşamada bir husus daha sormak istiyorum.

Combobox içerisinde listelenen her bir font adı yine kendi font formatında yazması sağlanabilir mi?

Tıpkı Excel ana sayfasında font stillerini seçtiğimiz combobox da olduğu gibi..

Örn: Verdana adlı font Verdana stilinde gelecek.

iyi çalışmalar.

 

[Zeki Gürsoy]

Sanırım bu mümkün değil Tamer bey. Combonun fontu tüm elemanları için geçerlidir, yani her satır için ayrı font verilemiyor.