كيف يمكن تغيير حجم خلايا متعددة بسرعة لتناسب الصور في Excel؟
كما نعلم، يدعم Microsoft Excel تغيير حجم ارتفاع الصف وعرض العمود الخلية تلقائيًا لتناسب المحتوى المملوء، مثل سلسلة نصية طويلة. ومع ذلك، فإن أمر التكييف التلقائي للارتفاع الصف وأمر التكييف التلقائي للعرض العمود غير صالحين للصور، لأن الصورة المُدرجة لا تقع داخل خلية محددة.
تغيير حجم الخلايا لتناسب الصور باستخدام VBA
تغيير حجم الصور لتناسب الخلايا باستخدام Kutools لـ Excel
تغيير حجم الخلايا لتناسب الصور باستخدام VBA
افترض وجود صورتين كبيرتين في ورقة العمل، كما في لقطة الشاشة التالية. قد يرغب أحد المستخدمين في ضبط حجم خلية لتتناسب مع صورة موضوعة فوقها — فكيف يمكن تحقيق ذلك؟
بالطبع، يمكنك ضبط حجم كل خلية تلقائيًا لتناسب الصورة الموضوعة فوقها. لكن هذه العملية قد تكون مملة وتستهلك وقتًا طويلاً إذا كانت لديك العديد من الصور. لحسن الحظ، يمكنك استخدام ماكرو VB لضبط حجم جميع الخلايا دفعة واحدة لتتناسب مع الصور الموضوعة فوقها. اتبع الخطوات التالية لتنفيذ ذلك:
الخطوة 1: اضغط مع الاستمرار على مفاتيحALT + F11، وسيتم فتح نافذةMicrosoft Visual Basic for Applications.
الخطوة 2: انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الماكرو التالي في نافذة الوحدة النمطية.
VBA: غيّر حجم الخلايا المتعددة لتتناسب تلقائيًا مع صورها.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Subالخطوة 3: اضغط على مفتاحF5 لتشغيل هذا الماكرو.
الآن، في ورقة العمل الحالية، سيتم ضبط حجم الخلية الواقعة أسفل الصورة تلقائيًا لتناسب الصورة أعلاها—في حال وجود صور. راجع لقطة الشاشة التالية:
تغيير حجم الصور لتناسب الخلايا باستخدام Kutools لـ Excel
إذا كنت قد قمت بضبط حجم الخلايا كما في لقطة الشاشة أدناه، ثم أردت استيراد الصور وتغيير أحجامها لتناسب أحجام الخلايا، فكيف يمكنك إنجاز ذلك بسرعة؟ في هذه الحالة، يمكن لأداةKutools لـ Excelالخاصة بـاستيراد الصورأن تساعدك في إنجاز هذه المهمة بسهولة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. انقر فوقKUTOOLS PLUS > استيراد/تصدير > استيراد الصور. راجع لقطة الشاشة:
2. في مربع الحوار الظاهراستيراد الصور، يمكنك أولاً تحديد ترتيب الاستيراد في قسمترتيب الاستيراد، ثم النقر فوق زرإضافةلإضافة الصور من مجلد أو كملفات واحدة تلو الأخرى. بعد ذلك، ستظهر الصور في قسمالصور. راجع لقطة الشاشة:
3. بعد ذلك، انقر فوق زراستيرادلعرض مربع حوارحجم صورة الاستيراد، ثم حدد خيارمطابقة حجم الخلية. راجع لقطة الشاشة:
4. انقر فوقموافقثم فوقاستيرادلعرض مربع حوار يتيح لك تحديد الخلايا التي تريد استيراد الصور منها. راجع لقطة الشاشة:
5. انقر فوقموافق، وسيتم الآن استيراد جميع الصور إلى الخلايا وتغيير أحجامها لتناسبها.
مقال ذو صلة:
كيفية إدراج صور متعددة في خلية في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل