Yazı Fontları

[baydeniro]

Merhaba Arkadaşlar,

Sisteme kayıtlı tüm fontları topluca kullanmayı sağlamak kod yoluyla mümkün mü ! Şöyle ki, Yazı Tipleri altında 100 çeşit Font Türü var. Örneğin
EXCEL.WEB.TR yazıp butona basıldığında EXCEL.WEB.TR ibaresini bütün fontlarda yazdırmak mümkün mü ?

 

[Haluk]

Şöyle bir şey olabilir ...

Sub Test()
    'Haluk - 05/04/2019
    'E-Posta: sa4truss@gmail.com
    Dim objWord As Object, i As Integer
    Set objWord = CreateObject("Word.Application")
   
    For i = 1 To objWord.FontNames.Count
        Cells(i, 1) = "EXCEL.WEB.TR"
        Cells(i, 1).Font.Name = objWord.FontNames(i)
        Cells(i, 2) = objWord.FontNames(i)
    Next
    Columns.AutoFit
    Set objWord = Nothing
End Sub

.

 

[baydeniro]

Haluk üstadım her kodda şaşkınlıktan şaşkınlığa giriyorum. Bu kodun yapılabileceğin şüpheliydim. Mükemmel bir şey bu ! sağolun, varolun üstadım

 

[aydogankemal]

Te

Şöyle bir şey olabilir ...

Sub Test()
    'Haluk - 05/04/2019
    'E-Posta: sa4truss@gmail.com
    Dim objWord As Object, i As Integer
    Set objWord = CreateObject("Word.Application")
 
    For i = 1 To objWord.FontNames.Count
        Cells(i, 1) = "EXCEL.WEB.TR"
        Cells(i, 1).Font.Name = objWord.FontNames(i)
        Cells(i, 2) = objWord.FontNames(i)
    Next
    Columns.AutoFit
    Set objWord = Nothing
End Sub

.

Teşekkür ederim, Tam da aradığım buydu

 

[aydogankemal]

Te

Teşekkür ederim, Tam da aradığım buydu

Tekrar Merhaba,
Kod ilk denediğimde çalıştı ama, sonradan "Excel.web.tr" yazısını değiştirip deneynce hata verdi, Ek olarak karakter boyutunu 48 olarak da ayarlayabilir miyiz?

Tekrar teşekkür ederim

 

[Haluk]

Sub Test2()
    'Haluk - 05/04/2019 - 31/01/2020
    'E-Posta: sa4truss@gmail.com
    Dim objWord As Object, i As Integer
    Set objWord = CreateObject("Word.Application")
  
    For i = 1 To objWord.FontNames.Count
        Cells(i, 1) = "EXCEL.WEB.TR"
        Cells(i, 1).Font.Size = 48
        Cells(i, 1).Font.Name = objWord.FontNames(i)
        Cells(i, 2) = objWord.FontNames(i)
    Next
    Columns.AutoFit
    Set objWord = Nothing
End Sub

 

[aydogankemal]

Sub Test2()
    'Haluk - 05/04/2019 - 31/01/2020
    'E-Posta: sa4truss@gmail.com
    Dim objWord As Object, i As Integer
    Set objWord = CreateObject("Word.Application")
 
    For i = 1 To objWord.FontNames.Count
        Cells(i, 1) = "EXCEL.WEB.TR"
        Cells(i, 1).Font.Size = 48
        Cells(i, 1).Font.Name = objWord.FontNames(i)
        Cells(i, 2) = objWord.FontNames(i)
    Next
    Columns.AutoFit
    Set objWord = Nothing
End Sub

Tekrar, tekrar, tekrar teşekkür ederim

 

[farisakboga]

Sub Test2()
    'Haluk - 05/04/2019 - 31/01/2020
    'E-Posta: sa4truss@gmail.com
    Dim objWord As Object, i As Integer
    Set objWord = CreateObject("Word.Application")
 
    For i = 1 To objWord.FontNames.Count
        Cells(i, 1) = "EXCEL.WEB.TR"
        Cells(i, 1).Font.Size = 48
        Cells(i, 1).Font.Name = objWord.FontNames(i)
        Cells(i, 2) = objWord.FontNames(i)
    Next
    Columns.AutoFit
    Set objWord = Nothing
End Sub

Sistem fontlarını değil de örneğin masaüstünde bulunan "fontlarim"klasöründeki fontlar için de aynısını yapabilir miyiz?

 

[Tevfik_Kursun]

Merhaba Haluk Hocam,

Sub Test2() 'Haluk - 05/04/2019 - 31/01/2020 'E-Posta: sa4truss@gmail.com Dim objWord As Object, i As Integer Set objWord = CreateObject("Word.Application") For i = 1 To objWord.FontNames.Count Cells(i, 1) = "EXCEL.WEB.TR" Cells(i, 1).Font.Size = 48 Cells(i, 1).Font.Name = objWord.FontNames(i)

Son satırı sarıya boyayıp "font sınıfının name özelliği kurulamaz" deyip hata veriyor. Neden olabilir? (dosyayı kapatıp yeniden açınca bir defa düzgün çalışıyor, hatalar arka arkaya farklı fontlar isteyince ortaya çıkıyor)
Saygılarımla

 

[Korhan Ayhan]

Defalarca denedim. Hiç sıkıntı çıkmadı.

 

[Tevfik_Kursun]

Defalarca denedim. Hiç sıkıntı çıkmadı.

yazı karakter boyutunu değiştirerek mi denediniz Korhan hocam?

 

[Korhan Ayhan]

Siz fontu kaç yaparak denediniz?

 

[Tevfik_Kursun]

önce 48 yaptım, gayet güzel çalıştı. bir daha çalıştırdım yine sorun yok. Makroyu inceledim ve 24 yaptım hata verdi. Kapatıp açtım bu sefer 24 te hata vermedi 48 yaptım aynı hatayı verdi. iki defa size olarak bir defa da name olarak geldi hata o nedenle yazdım.
saygılarımla

 

[farisakboga]

Defalarca denedim. Hiç sıkıntı çıkmadı.

Sistem fontlarını değil de örneğin masaüstünde bulunan "fontlarim"klasöründeki fontlar için de aynısını yapabilir miyiz?

 

[Korhan Ayhan]

Tevfik Bey,

Denemelerimde bende hata ile karşılaştım.

Emin değilim ama anladığım kadarıyla sanırım sayfada kullanılabilecek farklı yazı biçimi sayısı aşıldığı için hata veriyor.

Excelin Belirtim ve Sınırlamaları

 

 

[Korhan Ayhan]

Alternatif olarak ekteki dosya kullanılabilir.

İşlemler form üzerinde yapıldığı için hata verme olasılığı azalmış oluyor.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
ilginize ve çalışmanıza ayrıca teşekkür ederim. Ben sadece hata görünce bildirmek istedim. Bu arada insan yeni şeyler de öğrenebiliyor. (Sleep 500 gibi)
Saygılarımla