userform autosize özelliği

[peleryn]

Merhabalar;

Ekteki dosyada userform üzerindeki autosize özellikli textbox'ın atanan değerle aldığı ölçüye uygun olarak userformun (bu textbox'ın sürekli tamamı görüntülenecek şekilde) boyut değiştirmesi sağlanabilir mi?

 

[halit3]

bunu denermisiniz.

Private Sub UserForm_Activate()
TextBox1.Text = [a1]
TextBox1.AutoSize = True
TextBox1.Left = 0
TextBox1.Top = 0
Me.Width = TextBox1.Width
Me.Height = TextBox1.Height
End Sub

 

[peleryn]

Halit hocam malesef textbox1'e gelecek her değerde aynı istenilen sonucu vermiyor.Mesela A1'de sadece tek satır varsa TextBox görüntülenmiyor bile malesef.Oysa sadece bir isim varsa o isim kadar bir userform ya da 2 paragraf yazı varsa o yazı kadar bir userform halinde olması lazım.

 

[halit3]

evet doğru kod bir satır eksik alıyor bunu denermisiniz.

Private Sub UserForm_Activate()
yükseklik = TextBox1.Height
TextBox1.Text = [a1]
TextBox1.AutoSize = True
TextBox1.Height = TextBox1.Height + yükseklik
TextBox1.Left = 0
TextBox1.Top = 0
Me.Width = TextBox1.Width
Me.Height = TextBox1.Height
End Sub

 

[peleryn]

Hocam evet sorun o bir satırmış şimdi halloldu çok teşekkür ederim..
Genişlikle ilgili sorun hallolmasına karşın A1 deki değeri satırı keserek textboxa alıyor.Bu durumda textbox alacağı veriyi aşağıya doğru genişleyerek almayı tercih ediyormuş gibi görünüyor.Oysa verinin dizilişine göre önce sağa doğru büyümesine sonra aşağı doğru genişlemesine ihtiyacım var.Bu müdahale edilebilir bir durum mudur? Yoksa textbox'ın autosize özelliği böyle mi çalışır?

 

[peleryn]

Hocam pardon userform'u da textbox'ı da vba tasarım ekranında son sınırına kadar genişleterek tasarlamam gerekiyormuş sorunu düzelttim.Çözümünüz için teşekkür ederim.