İçeriği Excel'e sığdırmak için metin kutusunu otomatik olarak nasıl yeniden boyutlandırabilirim?
Metin kutusu boyutu, bir çalışma sayfasına eklendikten sonra sabitlenir. Böylece boyut, eklediğiniz veya sildiğiniz metne sığmayacak şekilde ayarlanmayacaktır. Bu makale, metin kutusunu içeriği Excel'e sığacak şekilde otomatik olarak yeniden boyutlandırma yöntemlerini göstermeyi amaçlamaktadır.
Metne sığacak şekilde şekli yeniden boyutlandırarak içeriği sığdırmak için metin kutusunu otomatik olarak yeniden boyutlandırma
İçeriği VBA koduna göre sığdırmak için tüm metin kutularını otomatik olarak yeniden boyutlandırın
Metne sığacak şekilde şekli yeniden boyutlandırarak içeriği sığdırmak için metin kutusunu otomatik olarak yeniden boyutlandırma
Girdiğiniz veya sildiğiniz metinle otomatik olarak yeniden boyutlandırmak için metin kutusunun özelliğini aşağıdaki gibi değiştirebilirsiniz.
1. Metin kutusunu ekledikten sonra, metin kutusunun kenarlığına sağ tıklayın ve ardından Boyut ve Özellikler sağ tıklama menüsünden. Ekran görüntüsüne bakın:
2. bir Şekli Biçimle bölmesi çalışma sayfasının sağ tarafında, altında Boyut ve Özellikler sekmesi, kontrol edin Şekle, metne uyacak şekilde yeniden boyutlandırma kutusu metin Kutusu bölümünü açın ve ardından Şekli Biçimle bölme. Ekran görüntüsüne bakın:
Şu andan itibaren metin kutusu içeriğe otomatik olarak sığacak şekilde yeniden boyutlandırılacaktır.
not: Bu yöntemle değiştirilecek birden fazla metin kutusu varsa, metin kutularının özelliklerini tek tek değiştirmeniz gerekir.
İçeriği VBA koduna göre sığdırmak için tüm metin kutularını otomatik olarak yeniden boyutlandırın
Zaten birden çok metin kutusu olan bir çalışma sayfası için aşağıdaki VBA kodu, içeriği bir kerede sığdırmak için bunları otomatik olarak yeniden boyutlandırmanıza yardımcı olabilir.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: İçeriği bir çalışma sayfasına sığdırmak için tüm metin kutularını otomatik olarak yeniden boyutlandırın
Sub TextBoxResizeTB()
Dim xShape As Shape
Dim xSht As Worksheet
On Error Resume Next
For Each xSht In ActiveWorkbook.Worksheets
For Each xShape In xSht.Shapes
If xShape.Type = 17 Then
xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
xShape.TextFrame2.WordWrap = True
End If
Next
Next
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, mevcut çalışma sayfasındaki tüm metin kutularının, aşağıda gösterilen ekran görüntüsü gibi içeriğine uyacak şekilde otomatik olarak yeniden boyutlandırıldığını görebilirsiniz.
Ve bu metin kutuları, ileride kullanımda girdiğiniz veya sildiğiniz içerikle otomatik olarak yeniden boyutlandırılacaktır.
İlgili makale:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!