تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا في Excel - طريقتان مفيدتان
عند العمل مع الصور في Excel، يكون محاذاة الصور مع الخلايا أمرًا بالغ الأهمية للحصول على عرض منظم ومرتب. إذا كنت تقوم بإدراج الصور في Excel بشكل متكرر وتريد أن يتم تغيير حجمها تلقائيًا لتتناسب مع أبعاد الخلية، ستقودك هذه المقالة إلى أفضل الطرق لتغيير حجم الصور لتتناسب مع الخلايا بفعالية.
تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام كود VBA
تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام Kutools لـ Excel
تغيير حجم صورة محددة لتتناسب مع خلية واحدة باستخدام كود VBA
بالنسبة للمستخدمين الذين يحتاجون إلى إدراج عدة صور وتغيير حجمها تلقائيًا لتتناسب داخل خلايا محددة، توفر ماكرو VBA حلاً فعالاً للغاية. من خلال الاستفادة من VBA، يمكنك تبسيط عملية استيراد وتعديل الصور، مما يضمن محاذاة الصور تمامًا مع حدود الخلايا. هذه الطريقة مفيدة بشكل خاص عند التعامل مع استيراد صور بالجملة، حيث تلغي الحاجة إلى تغيير الحجم والوضع يدويًا.
1. قم بضبط حجم الخلية التي تريد وضع الصورة فيها، ثم حدد الخلايا.
2. بعد ذلك، اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة "Microsoft Visual Basic for Applications".
3. انقر فوق "إدراج" > "وحدة"، ثم قم بلصق الماكرو التالي في نافذة الوحدة.
VBA: إدراج صور متعددة بناءً على حجم الخلية
Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If
End Sub
4. ثم اضغط على مفتاح F5 لتشغيل هذا الكود. في نافذة الفتح، يرجى اختيار المجلد الذي يحتوي على الصور، ثم حدد الصور التي تريد إدراجها.
5. وبعد ذلك انقر على زر "فتح"، وسيتم إدراج جميع الصور المحددة في نطاق تحديدك بناءً على حجم الخلية. شاهد لقطة الشاشة:
تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام Kutools لـ Excel
إذا لم تكن معتادًا على استخدام كود VBA، فلا داعي للقلق! Kutools لـ Excel يقدم طريقة بسيطة وفعالة لتغيير حجم الصور تلقائيًا لتتناسب مع الخلايا المقابلة لها. هذه الميزة مفيدة بشكل خاص للمستخدمين الذين يقومون بإدراج الصور بشكل متكرر، مثل قوائم المنتجات، التقارير أو العروض التقديمية للبيانات البصرية.
في هذا القسم، سنرشدك خلال الخطوات اللازمة لتغيير حجم الصور تلقائيًا لتتناسب مع الخلايا الخاصة بها باستخدام Kutools لـ Excel، مما يوفر لك الوقت ويضمن ورقة عمل مرتبة ومنظمة.
بعد تثبيت Kutools لـ Excel، يرجى القيام بالخطوات التالية:
- انقر على "Kutools Plus" > "استيراد/تصدير" > "استيراد الصور".
- في مربع الحوار "استيراد الصور"، قم بتكوين الخيارات التالية:
- انقر على زر "إضافة" لاختيار ملفات الصور أو المجلد لإضافة الصور إلى قائمة الصور؛
- من قائمة "حجم الاستيراد" المنسدلة، حدد "مطابقة حجم الخلية"؛
- حدد ترتيب الصور من قائمة "ترتيب الاستيراد" المنسدلة، يمكنك اختيار "تعبئة حسب العمود، ثم حسب الصف" أو "تعبئة حسب الصف، ثم حسب العمود"؛
- أخيرًا، انقر على زر "استيراد".
- الآن، ستظهر نافذة أخرى لـ "استيراد الصور"، حدد الخلايا الوجهة التي سيتم استيراد الصور إليها، شاهد لقطة الشاشة:
- ثم انقر على زر موافق، وسيتم إدراج جميع الصور المحددة لتتناسب مع حجم الخلايا المحددة كما هو موضح في لقطة الشاشة أدناه:
الخلاصة
كل من ماكرو VB و Kutools لـ Excel يقدمان طرقًا فعالة لتغيير حجم الصور لتتناسب مع الخلايا، لكنهما يلبيان احتياجات ومهارات مستخدمين مختلفين.
- كود VBA مثالي للمستخدمين الذين يحتاجون إلى تخصيص عالي ويشعر بالراحة في البرمجة. إنه حل فعال من حيث التكلفة ولكنه يتطلب بعض الخبرة التقنية.
- Kutools لـ Excel مثالي للمستخدمين الذين يفضلون نهجًا سهل الاستخدام وخاليًا من البرمجة ومستعدون للاستثمار في أداة طرف ثالث للحصول على ميزات إضافية وسهولة الاستخدام.
في النهاية، الاختيار بين الطريقتين يعتمد على المتطلبات الخاصة للمستخدم، المهارات التقنية والميزانية. بالنسبة لأولئك الذين يعملون بشكل متكرر مع الصور في Excel، فإن استكشاف كلا الخيارين وفهم نقاط القوة والضعف لديهما يمكن أن يؤدي إلى عمليات أكثر كفاءة وسلاسة. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، موقعنا يقدم آلاف الدروس لمساعدتك على إتقان Excel.
مقال ذو صلة:
كيفية تغيير حجم الخلايا المتعددة لتتناسب مع الصور الموجودة فوقها بسرعة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد