Hücreye göre yazı boyutu

[burhancavus61]

Hücre sabit yazıyı hücreye göre küçültüp büyütmek mümkünmü acaba. Yazıyı kelimelerine göre ayırıp gerekirse büyük gerekirse küçültmek istiyorum. Biraz örneklere baktım ama sanırım böyle bi isteği olan yok yada ben bulamadım.

 

[Saban Sertkaya]

Merhabalar,
Şöyle bir mantık işinizi görür mü ?
(A1 hücresindeki karakter sayısına göre font büyüklüğünü değiştir.)

Sub Düğme1_Tıklat()
If Len([A1]) <= 10 Then [A1].Font.Size = 40
If Len([A1]) > 10 And Len([A1]) <= 20 Then [A1].Font.Size = 30
If Len([A1]) > 20 And Len([A1]) <= 30 Then [A1].Font.Size = 20
If Len([A1]) > 30 And Len([A1]) <= 40 Then [A1].Font.Size = 10
End Sub

 

[burhancavus61]

Üstad deneyeyim sizi bilgilendireceğim.

 

[Saban Sertkaya]

Yada yazı sabit demiştiniz. O halde şöyle de deneyebilirsiniz.

Sub Düğme1_Tıklat()
If Columns("A:A").ColumnWidth <= 20 Then [A1].Font.Size = 10
If Columns("A:A").ColumnWidth > 20 And Columns("A:A").ColumnWidth <= 40 Then [A1].Font.Size = 20
If Columns("A:A").ColumnWidth > 40 And Columns("A:A").ColumnWidth <= 60 Then [A1].Font.Size = 30
If Columns("A:A").ColumnWidth > 60 And Columns("A:A").ColumnWidth <= 80 Then [A1].Font.Size = 40
If Columns("A:A").ColumnWidth > 80 Then [A1].Font.Size = 50
End Sub

 

[burhancavus61]

Olmadı üstad büyük olan bir ismi sığdırdı ama küçük olanı fazla büyüttü.

 

[Korhan Ayhan]

Görselde ki seçenek işinize yarayabilir.

 

[burhancavus61]

Hocam kusura bakmayın onu biliyorum tek satır o şekilde çok küçük oluyor. Metni kaydır seçenekli bi çözüm olabilirmi acaba diye düşündüm. Belki makrolu bir çözüm vardır ama şart değil. Çalışmam istediğim gibi ama böyle daha hoş olur diye düşündüm. Zahmet olmasın kimseye konuyu kapatabiliriz.

 

[Korhan Ayhan]

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklar mısınız?