كيفية ضبط حجم مربع النص تلقائيًا ليتناسب مع المحتوى في Excel؟

حجم مربع النص ثابت بعد إدراجه في ورقة العمل. لذلك لن يتم ضبط الحجم ليناسب النص الذي قمت بإدخاله أو حذفه. يعرض لك هذا المقال طرقًا لضبط حجم مربع النص تلقائيًا ليتناسب مع المحتوى في Excel.

ضبط حجم مربع النص تلقائيًا ليتناسب مع المحتوى باستخدام ميزة ضبط الشكل ليناسب النص
ضبط حجم جميع مربعات النص تلقائيًا لتتناسب مع المحتوى باستخدام كود VBA

ضبط حجم مربع النص تلقائيًا ليتناسب مع المحتوى باستخدام ميزة ضبط الشكل ليناسب النص

يمكنك تغيير خاصية مربع النص على النحو التالي لجعله يضبط حجمه تلقائيًا مع النص الذي تقوم بإدخاله أو حذفه.

1. بعد إدراج مربع النص، انقر بزر الماوس الأيمن على حدود مربع النص، ثم انقر فوق خصائص الحجم من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

2. يمكنك رؤية تنسيق الشكل يتم عرض اللوحة على الجانب الأيمن من ورقة العمل، أسفل خصائص الحجم التبويب، اختر تغيير حجم الشكل ليتناسب مع النص مربع في قسم مربع النص ثم أغلق تنسيق الشكل اللوحة. انظر لقطة الشاشة:

من الآن فصاعدًا، سيتم ضبط حجم مربع النص ليتناسب مع المحتوى تلقائيًا.

ملاحظة: باستخدام هذه الطريقة، إذا كان هناك عدة مربعات نص تحتاج إلى التغيير، ستحتاج إلى تغيير خصائص كل مربع نص على حدة.

ضبط حجم جميع مربعات النص تلقائيًا لتتناسب مع المحتوى باستخدام كود VBA

بالنسبة لورقة العمل التي تحتوي بالفعل على عدة مربعات نص، يمكن أن يساعدك الكود البرمجي VBA التالي في ضبط حجمها تلقائيًا لتناسب المحتوى دفعة واحدة.

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: ضبط حجم جميع مربعات النص تلقائيًا لتتناسب مع المحتوى في ورقة العمل

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. اضغط على مفتاح F5 لتشغيل الكود. بعد ذلك، يمكنك رؤية أن جميع مربعات النص في ورقة العمل الحالية تم ضبط حجمها تلقائيًا لتتناسب مع محتواها كما هو موضح في لقطة الشاشة أدناه.

وهذه المربعات النصية ستقوم بضبط حجمها تلقائيًا مع المحتوى الذي تدخله أو تحذفه في الاستخدام المستقبلي.

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

• كيفية ضبط حجم مربع التعليقات تلقائيًا ليتناسب مع محتواه في Excel؟