كيفية توسيط صورة في خلية Excel؟
ستوضح لك هذه المقالة طريقة لنقل الصور إلى مركز الخلايا في ورقة عمل Excel كما هو موضح أدناه.
انقل الصورة إلى مركز الخلية باستخدام رمز VBA
انقل الصورة إلى مركز الخلية باستخدام رمز VBA.
يرجى القيام بما يلي لنقل الصور إلى مركز الخلايا في ورقة عمل في Excel.
1. افتح ورقة العمل التي تحتوي على الصور التي تريد توسيطها في الخلايا ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق كود فبا في نافذة الكود.
كود فبا: انقل الصور إلى مركز الخلايا في ورقة العمل
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
ملاحظة:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. اضغط على F5 مفتاح لتشغيل الكود.
ثم سيتم نقل جميع الصور المحددة إلى وسط خلايا معينة على الفور كما هو موضح أدناه.
مقالات ذات صلة:
- كيفية تغيير جميع الصور تلقائيًا لنقلها وحجمها باستخدام الخلايا في Excel؟
- كيفية التحقق مما إذا كانت الخلية تحتوي على صورة في Excel؟
- كيفية إدراج صورة أو صورة ديناميكيًا في الخلية بناءً على قيمة الخلية في Excel؟
- كيفية تكبير الصورة عند الضغط عليها في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!