كيفية تكبير الصورة عند الضغط عليها في Excel؟
لنفترض أنك أدخلت قائمة بالصور في عمود وطابقت أحجام الصور مع أحجام الخلايا كما هو موضح أدناه. نظرًا لأن الصورة المدرجة تبدو صغيرة ، فقد تحتاج إلى تكبيرها لبعض الأغراض. ستوضح لك هذه المقالة طريقة تكبير الصورة عند النقر عليها في برنامج Excel ، والاستعادة إلى الحجم الأصلي بنقرة ثانية.
قم بتكبير الصورة عند النقر عليها باستخدام كود فبا
قم بتكبير الصورة عند النقر عليها باستخدام كود فبا
يمكن أن تساعدك التعليمات البرمجية VBA التالية على تكبير صورة عند النقر عليها في Excel. الرجاء القيام بما يلي.
1. انقر بزر الماوس الأيمن فوق الصورة التي تريد تكبيرها بمجرد النقر عليها ثم النقر فوقها تعيين ماكرو من قائمة السياق. انظر لقطة الشاشة:
2. في ال تعيين ماكرو مربع الحوار ، الرجاء النقر فوق جديد .
3. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز VBA أدناه بين ملف فرعية و نهاية الفرعية رموز. انظر لقطة الشاشة:
كود فبا: تكبير الصورة بالضغط عليها في إكسيل
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
ملاحظات: في الكود ، يمكنك تعيين الأحجام الكبيرة للصورة في الكود big = 3.
4. ثم اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند النقر فوق الصورة ، سيتم تكبيرها إلى الحجم الذي حددته ، والنقر فوقه مرة أخرى سيستعيد الحجم الأصلي كما هو موضح أدناه.
مقالات ذات صلة:
- كيفية قفل الصورة / الصورة في الخلية أو داخلها في إكسيل؟
- كيفية إدراج صورة أو صورة ديناميكيًا في الخلية بناءً على قيمة الخلية في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!