كيفية تغيير حجم خلايا متعددة لتناسب الصور بسرعة في Excel؟
كما نعلم ، يدعم Microsoft Excel تغيير حجم ارتفاع الصف وعرض العمود للخلية لاحتواء المحتوى المملوء ، مثل سلسلة نصية طويلة. ومع ذلك ، فإن الأمر احتواء تلقائي لارتفاع الصف وأمر عرض العمود احتواء تلقائي غير صالحين للصورة ، لأن الصورة المدرجة لا توجد في خلية معينة.
قم بتغيير حجم الخلايا لتناسب الصور باستخدام VBA
تغيير حجم الصور لتناسب الخلايا مع كوتولس ل إكسيل
قم بتغيير حجم الخلايا لتناسب الصور باستخدام VBA
بافتراض وجود صورتين كبيرتين في ورقة العمل ، انظر لقطة الشاشة التالية. قد يرغب شخص ما في تغيير حجم خلية لتلائم صورة أعلى الخلية. لكن كيف تدرك ذلك؟
بالطبع ، يمكنك تغيير حجم كل خلية تلقائيًا لتناسب الصور فوقها. ومع ذلك ، قد يكون الأمر شاقًا ويستغرق وقتًا طويلاً لعدد من الصور. في الواقع ، يمكننا تطبيق ماكرو 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 مفتاح لتشغيل هذا الماكرو.
الآن في ورقة العمل الحالية ، إذا كانت هناك صور ، فسيتم تغيير حجم الخلية الموجودة أسفل الصورة لتلائم الصورة الموجودة فوقها. انظر الصورة التالية:
تغيير حجم الصور لتناسب الخلايا مع كوتولس ل إكسيل
إذا قمت بضبط حجم الخلايا كما هو موضح أدناه ، ثم تريد استيراد الصور وتغيير حجمها لتناسب أحجام الخلايا ، فكيف يمكنك إنجاز ذلك بسرعة؟ في هذه الحالة، كوتولس ل إكسيل's استيراد صور يمكن أن تساعدك الأداة في التعامل مع هذه الوظيفة بسهولة.
كوتولس ل إكسيل, مع أكثر من 120 وظائف يدوية ، تجعل مهامك أسهل. | ||
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)
1. انقر مشروع > استيراد و تصدير > استيراد الصور. انظر لقطة الشاشة:
2. في ظهرت استيراد الصور الحوار ، يمكنك تحديد أمر الاستيراد أولاً في أمر استيراد ، ثم انقر فوق أضف لإضافة صور من المجلد أو كملفات واحدة تلو الأخرى ، ثم يمكنك مشاهدة الصور مدرجة في ملف صورة الجزء. انظر لقطة الشاشة:
3. ثم اضغط استيراد زر للعرض استيراد حجم الصورة الحوار ، ثم تحقق مطابقة حجم الخلية اختيار. انظر لقطة الشاشة:
4. انقر OK > استيراد لعرض مربع حوار لتحديد الخلايا التي تريد استيراد الصور. انظر لقطة الشاشة:
5. انقر OK، والآن يتم استيراد جميع الثقوب إلى الخلايا وتغيير حجمها لتناسب الخلايا.
استيراد صور تطابق حجم الخلية
مقالات لها صلة:
كيفية إدراج صور متعددة في الخلية في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!