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

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

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

قم بتغيير حجم الصورة المحددة لتلائم خلية واحدة باستخدام VB Macro

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


السهم الأزرق الحق فقاعة قم بتغيير حجم الصورة المحددة لتلائم خلية واحدة باستخدام VB Macro

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

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

doc- تغيير حجم الصور لتناسب الخلايا 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: كرر الخطوات أعلاه لتغيير حجم الصور الأخرى لتناسب خلية واحدة.

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

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

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


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

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

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.

الخطوة 1: حدد خلايا النطاق التي تريد إدراج الصور فيها وانقر فوق مشروع >استيراد و تصدير > استيراد الصور. انظر الصورة التالية:

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

الخطوة 2: في ملف استيراد الصور مربع الحوار ، حدد ترتيب الإدراج في القائمة المنسدلة ، وانقر فوق أضف لإضافة الصور التي تريدها من ملف أو مجلد ، ثم انقر فوق حجم زر. انظر لقطة الشاشة:

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

الخطوة شنومك: تحقق مطابقة حجم الخلية اختيار. ثم اضغط Ok > استيراد لإغلاق الحوارات. انظر لقطة الشاشة:

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

يمكنك الآن رؤية الصور مدرجة لتناسب الخلايا.

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

ملاحظات: يمكنك أيضًا تحديد ارتفاع الخلية وعرضها في الخطوة 3 لتغيير حجم الصور.

إذا كنت تريد معرفة المزيد عن هذا استيراد صورة الميزة ، يرجى زيارة هنا.


مقالات لها صلة:

كيفية تغيير حجم خلايا متعددة لاحتواء الصور فوقها بسرعة في 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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
La macro posiziona l'immagine "Immagine 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto As Single ' larghezza foto
Dim Rfoto As Single ' rapporto foto h/L

Range("D5").Select

hcell = Selection.Height
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Immagine 2").Height
Lfoto = ActiveSheet.Shapes("Immagine 2").Width
Rfoto = hfoto / Lfoto

If hfoto < Lfoto Then
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

If hfoto > hcell Then
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
Else
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
End If

Range("D5").Select

With ActiveSheet.Shapes("Immagine 2")
.Top = Selection.Top + (Selection.Height - .Height) / 2
.Left = Selection.Left + (Selection.Width - .Width) / 2
End With
End Sub
This comment was minimized by the moderator on the site
Thank you, it really works!
This comment was minimized by the moderator on the site
Hi, Need this code disabling the lock aspect ratio
This comment was minimized by the moderator on the site
Hi..
perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
This comment was minimized by the moderator on the site
Brilliant! Works great! Just what I was looking for! Thank you!
This comment was minimized by the moderator on the site
it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
This comment was minimized by the moderator on the site
Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript. Help! Many thanks, Harry
This comment was minimized by the moderator on the site
Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
This comment was minimized by the moderator on the site
Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?
This comment was minimized by the moderator on the site
Public Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Slight modification to resize into merged cells
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.MergeArea.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.MergeArea.Height
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Placement = xlMoveAndSize
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
This comment was minimized by the moderator on the site
[quote]Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?By Marcelo[/quote] Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing. thanks
This comment was minimized by the moderator on the site
I tried this macro last night and it adjust only the height. The width it doesn't incorrectly. Any Help please?
This comment was minimized by the moderator on the site
Thank you this was perfect!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations