Yıllarca bir sürü True Type yazıtipi kullandıktan sonra, makinemdeki fontları düzenleme, kullanmadıklarımdan kurtulma aşamasına geldim. Asıl yapmak istediğim, bir Excel ya da Word makrosu yaratarak var olan bütün yazı tiplerinden örnekler alıp görüntülemek. Üstelik her bir yazıtipinin adının iyi okunabilen bir font ile ve yalnızca bir tek satırı kaplayarak görüntülenmesini istiyorum. Nasıl yaparım?
Can Konyalı / İSTANBUL
Excel’in nesne modellemesi, bir yazıtipi adları seçkisini içermediğinden, sadece Excel’i kullanarak böyle bir tablo yaratmanın kolay bir yolu yok.
Ancak makinenizde Word de varsa, bu işi Nesne Bağlama ve Gömme Teknolojisi’nden (OLE) faydalanarak yapabilirsiniz.
Şekildeki program kodunun ilk satırı, Word uygulamasını bir nesne değişkenine dönüştürür. Böylece, bu ilk komutu izleyen komutlar Word’ün nesne modelini, FontNames (Yazıtipi Adları) seçkisi de dahil kullanabilir. For Each döngüsü, her yazıtipi adını bir sütuna ve bu yazıtipine denk örneği de komşu sütuna yerleştirir. For Each döngüsünün devamındaki komut, sonuç tablosunda yazıtipi adlarını ve onlara bağlı yazıtipi örneklerini alfabetik olarak dizmeye yarar.
Bu işlemler sırasında Word’ün açık olması gerekmez, sadece sistemde kurulu olması yeterlidir. Bu makro, belgede başka bir verinin olup olmadığına bakmayacağından, hesap tablosunun boş bir sayfasında uygulanmalıdır.