كيفية ضبط حجم مربع النص تلقائيًا ليتناسب مع المحتوى في 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 باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد