كيفية إزالة الحدود من مربع النص في Excel؟

افتراضيًا، تكون مربعات النص في Excel محاطة بحدود سوداء. إذا كنت ترغب في إزالة الحدود من مربع نص واحد، أو إزالة الحدود من جميع مربعات النص في ورقة العمل، أو إنشاء مربع نص بدون حدود، فإن هذا الدليل سيأخذك خطوة بخطوة في كل طريقة.

إزالة الحدود من مربع نص في Excel
إزالة الحدود من جميع مربعات النص في ورقة العمل الحالية في Excel
إنشاء مربع نص بدون حدود في Excel

إزالة الحدود من مربع نص في Excel

من السهل إزالة الحدود من مربع نص في Excel باستخدام ميزة عدم وجود إطار في Excel. يرجى القيام بما يلي.

1. حدد مربع النص الذي ستقوم بإزالة الحدود منه.

2. انقر فوق تنسيق > شكل المخطط التفصيلي > لا يوجد إطار. انظر لقطة الشاشة:

ثم يمكنك رؤية أن الحدود قد أزيلت من مربع النص المحدد فورًا كما هو موضح في لقطة الشاشة أدناه.

إزالة الحدود من جميع مربعات النص في ورقة العمل الحالية في Excel

يمكن أن يساعدك الكود VBA أدناه في إزالة الحدود من جميع مربعات النص في ورقة العمل الحالية في Excel. يرجى القيام بما يلي.

1. في ورقة العمل التي تحتوي على عدة مربعات نص تريد إزالة الحدود منها، اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ الكود VBA أدناه إلى نافذة الكود.

VBA code: إزالة الحدود من جميع مربعات النص في ورقة العمل الحالية

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. اضغط على مفتاح F5 لتشغيل الكود. ثم تتم إزالة الحدود من جميع مربعات النص في ورقة العمل الحالية فورًا.

إنشاء مربع نص بدون حدود في Excel

بدلاً من ذلك، يمكنك إنشاء مربع نص بدون حدود لتجنب الحاجة إلى إزالة الحدود من مربع النص. يرجى القيام بما يلي.

1. في ورقة العمل التي ستدخل فيها مربع نص بدون حدود، اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ الكود VBA أدناه إلى نافذة الكود.

VBA code: إنشاء مربع نص بدون حدود في Excel

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

3. اضغط على مفتاح F5 لتشغيل الكود.

يتم إدراج مربع نص بدون حدود في ورقة العمل الحالية فورًا.

مقالات ذات صلة:

• كيفية العد إذا كانت الخلية تحتوي على نص أو جزء من النص في Excel؟
• كيفية التحقق مما إذا كانت قيمة الخلية بين قيمتين في Excel؟
• كيفية استخدام دالة الجمع إذا كانت الخلية المجاورة متساوية، فارغة أو تحتوي على نص في Excel؟
• كيفية إرجاع القيمة في خلية أخرى إذا كانت الخلية تحتوي على نص معين في Excel؟