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

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

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

---

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

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

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

2. انقر شكل > مخطط الشكل > لا مخطط. انظر لقطة الشاشة:

بعد ذلك يمكنك رؤية إزالة الحدود من مربع النص المحدد على الفور كما هو موضح أدناه.

---

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

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

1. في ورقة العمل تحتوي على عدة مربعات نصية ستقوم بإزالة الحدود منها ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.

كود فبا: أزل الحدود من كل مربعات النص في ورقة العمل الحالية

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. في ورقة العمل ، ستقوم بإدراج مربع نص بدون حدود ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.

كود فبا: إنشاء مربع نص لا حدود في إكسيل

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؟
• كيف يمكن أن تكون الخلية المجاورة sumif متساوية أو فارغة أو تحتوي على نص في Excel؟
• كيفية إرجاع القيمة في خلية أخرى إذا كانت الخلية تحتوي على نص معين في Excel؟