Excel'de metin kutusunu içeriğe otomatik olarak yeniden boyutlandırmak nasıl yapılır?

Çalışma sayfasına yerleştirdikten sonra metin kutusu boyutu sabitlenir. Bu nedenle, eklediğiniz veya sildiğiniz metne uyacak şekilde boyut ayarlamaz. Bu makale, Excel'de bir metin kutusunu otomatik olarak yeniden boyutlandırmak için yöntemler gösterir.

Metni otomatik olarak sığdırmak için şekil boyutlandırma özelliğiyle metin kutusunu otomatik yeniden boyutlandırma
VBA kodu ile tüm metin kutularını içeriğe otomatik olarak yeniden boyutlandırma

Metni otomatik olarak sığdırmak için şekil boyutlandırma özelliğiyle metin kutusunu otomatik yeniden boyutlandırma

Aşağıdaki gibi metin kutusu özelliğini değiştirerek, girdiğiniz veya sildiğiniz metne göre otomatik olarak yeniden boyutlandırmasını sağlayabilirsiniz.

1. Metin kutusunu yerleştirdikten sonra, metin kutusunun kenarlığını sağ tıklayın ve ardından sağ tıklama menüsünden Boyut ve Özellikler'i seçin. Ekran görüntüsüne bakın:

2. Sağ tarafta görünen Şekil Biçimi panosu çalışma sayfasının sağ tarafında, Boyut ve Özellikler sekmesi altında, Metne sığacak şekilde şekli yeniden boyutlandır kutusunu işaretleyin, bu kutu Metin Kutusu bölümünde yer alır, ardından Şekil Biçimi panosunu kapatın. Ekran görüntüsüne bakın:

Bu noktadan itibaren, metin kutusu içeriğe otomatik olarak uyacak şekilde yeniden boyutlandırılacaktır.

Not: Bu yöntemle, değiştirilmesi gereken birden fazla metin kutusu varsa, metin kutularının özelliklerini tek tek değiştirmeniz gerekir.

VBA kodu ile tüm metin kutularını içeriğe otomatik olarak yeniden boyutlandırma

Zaten birden fazla metin kutusu içeren bir çalışma sayfası için aşağıdaki VBA kodu, bunları içeriğe otomatik olarak yeniden boyutlandırmaya yardımcı olabilir.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Çalışma sayfasındaki tüm metin kutularını otomatik olarak yeniden boyutlandırma

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. Kodu çalıştırmak için F5 tuşuna basın. Daha sonra aşağıdaki ekran görüntüsünde gösterildiği gibi, geçerli çalışma sayfasındaki tüm metin kutularının içeriğe otomatik olarak yeniden boyutlandırıldığını görebilirsiniz.

Ve bu metin kutuları, gelecekteki kullanımlarda girdiğiniz veya sildiğiniz içerikle otomatik olarak yeniden boyutlandırılacaktır.

İlgili makale:

• Excel'de yorum kutusunu içeriğe otomatik olarak boyutlandırmak nasıl yapılır?