uyacak şekilde sığdırma

[acar6783]

Arkadaşalar kolay gelsin

Uzun zamandır peşindeyim ama bir çare bulmadım.

Konu bir dikdörtgene veri sığdırma yani metin boyuna göre font değerini ayarlama.
Aslında excelin böyle bir durumu var "uyacak şekilde daralt" fakat bu durum hücrleri birleştir ve metni kaydır birlikte kullanıldığında pasif oluyor . Tabi dikdörtgende de bu durum söz konusu bile olmuyor.sadece yazıya göre dikdörtgen şekil alıyor

Örnek dosyam ektedir .
Benzer bir çalışma bulamadım bununla ilgili
Yardımlarınızı bekliyorum..
Saygılar

 

[Merhum İdris SERDAR]

.

Sub ayarla()

   Dim sek As Shape
   Dim mtn As String
   For Each sek In ActiveSheet.Shapes
       With sek.TextFrame2
           mtn = .TextRange
           .DeleteText
           .WordWrap = msoTrue
           .AutoSize = msoAutoSizeTextToFitShape
           .TextRange = mtn
       End With
   Next sek

End Sub

Bu kodu bir kez çalıştırdıktan sonra deneyin.

.

 

[acar6783]

Kodu çalıştırdıktan sonra dikdörtgen içerisindeki veri 120 fontdayken çok minik bir hal aldı
sonrasında ise değişen bir şey olmadı?

 

[Merhum İdris SERDAR]

.

Benim yaptığımı ekliyorum.

Siz sadece J3 hücresine yazın ve gözlemleyin.

Tabi sığdırma derken ya font küçülecek ya da dörtrgen büyüyecek.

Benim verdiğim kod fontu küçültüyor.

.

 

[acar6783]

.

Benim yaptığımı ekliyorum.

Siz sadece J3 hücresine yazın ve gözlemleyin.

Tabi sığdırma derken ya fonf küçülecek ya da dötrgen büyüyecek.

Benim verdiğim kod fontu küçültüyor.

.

Hocam anlayamadım hala ne oluyor. Yazıyorum font aynı dırıyor hiçbir işlem olmuyor.
Ekliyorum..

 

[Merhum İdris SERDAR]

.

Makroyu çalıştırdıktan sonra dörtgendeki fontu ve yazı rengini ayarlayın. Hücreye veri girerek tekrar deneyin.

Bende çalışıyor.

.

 

[acar6783]

Bir yerde sıkıntı var ama çözemedik...
Gönderdiğiniz dosyayı açtım. makroyu çalıştırdım font 11 e kadar düştü sonra tekrar ben fontu 88 e kadar yükselttim ve j3 e değer girdim fakat j3 e girdiğim değer dikdörtgende görünmez oldu .
Formülü yeniledim fakat font yine değişmedi.

 

[acar6783]

Bu sorunu nasıl aşacağız eğer çare yoksa oturup her harf boyutu için ayrı ayrıkod yazmam gerekicek.Fakat böyle olunca da dikdörtgen değiştikçe kodlar da değişecek. Yani işin içinden çıkılamz bir durum...
Yardım olursa cok sevinirim

 

[Merhum İdris SERDAR]

.

Bende çalışıyor olmasına rağmen bir de buna bakın.

.

 

[acar6783]

Sanırım ben yanlış anlaşldım Hocam..

Ne yazarsam yazayım font 11 olarak ayarlıyor.
Dikdörtgene sığması gerekiyor..