hücre ölçülerine göre yazı fontu

[heft]

Merhaba,
Başlıktanda anlaşılacağı gibi hücre genişliğini ve hücre yüksekliğini orantılı olarak büyütmek/küçültmek istiyorum.
Ör:
A1 ile A10 arasındaki hücrelerin gerçek ölçüleri 12,75x8,43 ve font :10
eğer ben bu hüvcreleri 25,50x16,86 yaparsam fontu bu oranla 20 yapsın
mümkün mü yapılabilir mi ?

 

[Mahmut Kök]

Daha önceden kullandığım aşağıdaki gibi bir kod belki işe yarayabilir.

Faal hücrenin satırı için kullanabilirsiniz. Boyutların mantığını ayarlamanız gerekir.

sat = ActiveCell.Row
    a = Rows(sat).RowHeight
    boy = a - 10
    If boy < 3 Then boy = 3
  Rows(sat).Font.Size = boy

 

[heft]

ilginize teşeşkkür ama galiba tam olarak anlatamadım
özetle
yazı hücre boyutuna göre kendini sığdırsın tam derdim bu aslında.

 

[Mahmut Kök]

Kodları, fikir vermesi açısından eklemiştim; dosyaya aktardım. Ekli dosyada deneyebilirsiniz; ama işinizi görmeyecekse tabi siz bilirsiniz.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub fontdegistir()
Dim hucre As Range
For Each hucre In [a1:a10]
olcu = Round((hucre.RowHeight / 12.75) * 10, 0)
If hucre <> "" And hucre.Font.Size <> olcu Then hucre.Font.Size = olcu
Next
End Sub

 

[heft]

ayrı ayrı ilginize teşekkürler bunlar yükseklik kontrolü olarak ok.Fakat boy dan hücreden taşmalar yapıyor bunu nasıl engelleriz ?