انتقل إلى المحتوى الرئيسي

كيفية تغيير حجم خلايا متعددة لتناسب الصور بسرعة في Excel؟

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

قم بتغيير حجم الخلايا لتناسب الصور باستخدام VBA

تغيير حجم الصور لتناسب الخلايا مع كوتولس ل إكسيل فكرة جيدة 3


قم بتغيير حجم الخلايا لتناسب الصور باستخدام VBA

بافتراض وجود صورتين كبيرتين في ورقة العمل ، انظر لقطة الشاشة التالية. قد يرغب شخص ما في تغيير حجم خلية لتلائم صورة أعلى الخلية. لكن كيف تدرك ذلك؟

doc-تغيير حجم الخلية لتناسب الصورة 1

بالطبع ، يمكنك تغيير حجم كل خلية تلقائيًا لتناسب الصور فوقها. ومع ذلك ، قد يكون الأمر شاقًا ويستغرق وقتًا طويلاً لعدد من الصور. في الواقع ، يمكننا تطبيق ماكرو VB لتغيير حجم جميع الخلايا لتناسب الصور فوقها. يمكنك القيام بذلك من خلال الخطوات التالية:

الخطوة شنومكس: اضغط باستمرار ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الخطوة شنومك: انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.

فبا: تغيير حجم خلايا متعددة لتناسب صورهم.

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

الخطوة شنومك: اضغط على F5 مفتاح لتشغيل هذا الماكرو.

الآن في ورقة العمل الحالية ، إذا كانت هناك صور ، فسيتم تغيير حجم الخلية الموجودة أسفل الصورة لتلائم الصورة الموجودة فوقها. انظر الصورة التالية:

doc-تغيير حجم الخلية لتناسب الصورة 2


تغيير حجم الصور لتناسب الخلايا مع كوتولس ل إكسيل

إذا قمت بضبط حجم الخلايا كما هو موضح أدناه ، ثم تريد استيراد الصور وتغيير حجمها لتناسب أحجام الخلايا ، فكيف يمكنك إنجاز ذلك بسرعة؟ في هذه الحالة، كوتولس ل إكسيل's استيراد صور يمكن أن تساعدك الأداة في التعامل مع هذه الوظيفة بسهولة.
doc تغيير حجم الصورة تناسب الخلية 1

كوتولس ل إكسيل, مع أكثر من 120 وظائف يدوية ، تجعل مهامك أسهل. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

1. انقر مشروع > استيراد و تصدير > استيراد الصور. انظر لقطة الشاشة:
doc تغيير حجم الصورة تناسب الخلية 2

2. في ظهرت استيراد الصور الحوار ، يمكنك تحديد أمر الاستيراد أولاً في أمر استيراد ، ثم انقر فوق أضف لإضافة صور من المجلد أو كملفات واحدة تلو الأخرى ، ثم يمكنك مشاهدة الصور مدرجة في ملف صورة الجزء. انظر لقطة الشاشة:
doc تغيير حجم الصورة تناسب الخلية 3

3. ثم اضغط استيراد زر للعرض استيراد حجم الصورة الحوار ، ثم تحقق مطابقة حجم الخلية اختيار. انظر لقطة الشاشة:
doc تغيير حجم الصورة تناسب الخلية 4

4. انقر OK > استيراد لعرض مربع حوار لتحديد الخلايا التي تريد استيراد الصور. انظر لقطة الشاشة:
doc تغيير حجم الصورة تناسب الخلية 5

5. انقر OK، والآن يتم استيراد جميع الثقوب إلى الخلايا وتغيير حجمها لتناسب الخلايا.
doc تغيير حجم الصورة تناسب الخلية 6


مقالات لها صلة:
كيفية إدراج صور متعددة في الخلية في Excel؟

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations