Excel'de metin kutusundan kenarlığı nasıl kaldırılır?

Varsayılan olarak, Excel'deki metin kutuları siyah kenarlıklarla çevrilidir. Tek bir metin kutusundan kenarlığı kaldırmak, çalışma sayfasındaki tüm metin kutularından kenarlıkları kaldırmak veya kenarlığı olmayan bir metin kutusu oluşturmak istiyorsanız, bu kılavuz size her yöntemi adım adım gösterecektir.

Excel'de bir metin kutusundan kenarlık kaldırma
Excel'de mevcut çalışma sayfasındaki tüm metin kutularından kenarlıkları kaldırma
Excel'de kenarlığı olmayan bir metin kutusu oluşturma

Excel'de bir metin kutusundan kenarlık kaldırma

Excel'de bir metin kutusundan kenarlığı kaldırmak için Excel'in Anahat Yok özelliği ile oldukça kolaydır. Lütfen aşağıdaki adımları izleyin.

1. Kenarlıkları kaldırmak istediğiniz metin kutusunu seçin.

2. Biçim > Şekil Anahattı > Anahat Yok seçeneğine tıklayın. Ekran görüntüsüne bakın:

Ardından, aşağıdaki ekran görüntüsünde gösterildiği gibi, seçilen metin kutusundan kenarlıkların hemen kaldırıldığını görebilirsiniz.

Excel'de mevcut çalışma sayfasındaki tüm metin kutularından kenarlıkları kaldırma

Aşağıdaki VBA kodu, Excel'deki mevcut çalışma sayfasındaki tüm metin kutularından kenarlıkları kaldırmaya yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Kenarlıkları kaldırmak istediğiniz birden fazla metin kutusu içeren çalışma sayfasında, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

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

VBA kodu: mevcut çalışma sayfasındaki tüm metin kutularından kenarlıkları kaldırma

Sub DelectTextBoxLine()
'Update by Extendoffice 2018/5/15
    Dim xOle As Shape
    On Error GoTo LableNext
    For Each xOle In ActiveSheet.Shapes
        If xOle.Name Like "TextBox*" Then
            xOle.Line.Visible = msoFalse
        End If
LableNext:
    Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Ardından, mevcut çalışma sayfasındaki tüm metin kutularından kenarlıklar hemen kaldırılır.

Excel'de kenarlığı olmayan bir metin kutusu oluşturma

Alternatif olarak, bir metin kutusundan kenarlıkları kaldırmaya gerek kalmaması için kenarlığı olmayan bir metin kutusu oluşturabilirsiniz. Lütfen aşağıdaki adımları izleyin.

1. Kenarlığı olmayan bir metin kutusu eklemek istediğiniz çalışma sayfasında, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

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

VBA kodu: Excel'de kenarlığı olmayan bir metin kutusu oluşturma

Sub AddTextbox_NoLine()
'Update by Extendoffice 2018/5/15
    ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, 90, 90, 180, 180).Line.Visible = msoFalse
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın.

Kenarlığı olmayan bir metin kutusu, mevcut çalışma sayfasına hemen eklenir.

İlgili makaleler:

• Excel'de bir hücre belirli bir metni veya metnin bir kısmını içeriyorsa nasıl sayılır?
• Excel'de bir hücre değeri iki değer arasında mı diye nasıl kontrol edilir?
• Excel'de bitişik hücre eşitse, boşsa veya metin içeriyorsa toplam nasıl alınır?
• Excel'de bir hücre belirli bir metni içeriyorsa başka bir hücredeki değeri nasıl döndürürsünüz?