كيفية تغيير حجم الصور لتناسب الخلايا في Excel؟
عادة ما تطفو الصور المدرجة فوق الخلايا ، وفي معظم الأحيان تغطي الصور الواحدة الكثير من الخلايا. إذا كانت ورقة العمل تحتوي على عدد كبير من الصور ، فقد ترغب في وضع كل صورة في خلية واحدة. لكن كيف نتعامل معها؟ في الواقع ، هناك العديد من الطرق الصعبة لمساعدتنا في تغيير حجم الصور لتناسب حجم الخلايا بسرعة.
قم بتغيير حجم الصورة المحددة لتلائم خلية واحدة باستخدام VB Macro
تغيير حجم الصور المدرجة لتناسب الخلايا مع كوتولس ل إكسيل
قم بتغيير حجم الصورة المحددة لتلائم خلية واحدة باستخدام VB Macro
يمكننا تطبيق وحدات ماكرو VB لتغيير حجم الصورة المحددة لتناسب خلية واحدة ، ولكن لا يمكننا تغيير حجم عرض الصورة وارتفاعها يدويًا. يمكنك القيام بذلك من خلال الخطوات التالية:
الخطوة 1: أدخل الصور في ورقة عمل ، وحدد الصورة التي ستقوم بتغيير حجمها لتناسب خلية واحدة.
الخطوة شنومكس: اضغط باستمرار ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
الخطوة شنومك: انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.
فبا: تغيير حجم الصورة المحددة لاحتواء خلية.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
الخطوة شنومك: اضغط على F5 مفتاح لتشغيل هذا الماكرو.
الخطوة 5: كرر الخطوات أعلاه لتغيير حجم الصور الأخرى لتناسب خلية واحدة.
الآن يتم تغيير حجم جميع الصور المدرجة وتناسبها في الخلايا. انظر الصورة التالية:
ملاحظات: يمكنك تغيير حجم صورة واحدة فقط مرة واحدة. إذا قمت بتحديد أكثر من صورة مرة واحدة ، فسيظهر مربع حوار تحذير.
تغيير حجم الصور المدرجة لتناسب الخلايا مع كوتولس ل إكسيل
إذا كان لديك كوتولس ل إكسيل مثبتة ، يمكنك تطبيق استيراد الصور أداة لتغيير حجم جميع الصور لتناسب الخلايا أو بارتفاع ثابت أثناء إدراج الصور.
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.
الخطوة 1: حدد خلايا النطاق التي تريد إدراج الصور فيها وانقر فوق مشروع >استيراد و تصدير > استيراد الصور. انظر الصورة التالية:
الخطوة 2: في ملف استيراد الصور مربع الحوار ، حدد ترتيب الإدراج في القائمة المنسدلة ، وانقر فوق أضف لإضافة الصور التي تريدها من ملف أو مجلد ، ثم انقر فوق حجم زر. انظر لقطة الشاشة:
الخطوة شنومك: تحقق مطابقة حجم الخلية اختيار. ثم اضغط Ok > استيراد لإغلاق الحوارات. انظر لقطة الشاشة:
يمكنك الآن رؤية الصور مدرجة لتناسب الخلايا.
ملاحظات: يمكنك أيضًا تحديد ارتفاع الخلية وعرضها في الخطوة 3 لتغيير حجم الصور.
إذا كنت تريد معرفة المزيد عن هذا استيراد صورة الميزة ، يرجى زيارة هنا.
مقالات لها صلة:
كيفية تغيير حجم خلايا متعددة لاحتواء الصور فوقها بسرعة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!