Soru Metin kutusunda 3. satırdan sonrası görünmüyor

[seckinb]

Merhaba

A12 hücresine 10 satırlık veri yazdığımda, verinin tamamının ilgili metin kutusunda görünmesini istiyorum. Ne yazık ki metin kutusu sadece 3 satırını gösteriyor.

Boyutu ne kadar büyütürsem büyüteyim fark etmiyor.

nasıl düzeltirim?

 

[Seyit Tiken]

Ekle ► Şekiller ► Dikdörtgen'i deneyiniz.

 

[seckinb]

Ekle > Şekiller > Dikdörtgen'i deneyiniz.

oluşturdum, o da maksimum 100 karakter gösteriyor sanırım. nasıl bu sınırı kaldıracağım bilemiyorum.

 

[Seyit Tiken]

Metin Kutusu, formül ile sınırlı sayıda karakter alıyor, fazla veri için kod kullanmak lazım. Aşağıdaki kodu deneyiniz.

Sub yapıstır()
Sayfa1.Shapes("Metin Kutusu 5").TextFrame.Characters.Text = [a12]
End Sub

 

[seckinb]

Metin Kutusu, formül ile sınırlı sayıda karakter alıyor, fazla veri için kod kullanmak lazım. Aşağıdaki kodu deneyiniz.

Sub yapıstır()
Sayfa1.Shapes("Metin Kutusu 5").TextFrame.Characters.Text = [a12]
End Sub

Bu kodu nasıl otomatik çalışır hale getireceğim? 1 kez çalıştığında sürekli çalışır halde mi olacak?

 

[Seyit Tiken]

Kodu nasıl çalıştırmak istiyorsunuz?

 

[seckinb]

Kodu nasıl çalıştırmak istiyorsunuz?

kodu çalıştırdım, sanırım sorun sorun çözüldü.

yarın aynı dosyayı farklı bir bilgisayardan açacağım. Aynı şekilde yeterli karakter görünürse hallolmuştur )

teşekkürler

 

[seckinb]

Malesef çalışmadı.


Sayfa1.Shapes("Metin Kutusu 5").TextFrame.Characters.Text = [a12]

değeri 1 kez güncelliyor, sonrasında statik kalıyor.
dinamik bir bağ kuramadı a12 hücresi ile.