كيف يمكن تكبير الصورة عند النقر عليها في Excel؟
افترض أنك أدرجت قائمةً من الصور في عمودٍ وقمت بمطابقة أحجامها مع أحجام الخلايا، كما هو موضح في لقطة الشاشة أدناه. وبما أن الصورة المُدرجة تبدو صغيرة، فقد تحتاج إلى تكبيرها لأغراضٍ معينة. سيعرض لك هذا المقال طريقة تكبير الصورة عند النقر عليها في Excel، ثم إعادتها فورًا إلى حجمها الأصلي بنقرةٍ ثانية.
تكبير الصورة عند النقر عليها باستخدام كود VBA
تكبير الصورة عند النقر عليها باستخدام كود VBA
يمكنك استخدام كود VBA التالي لتكبير الصورة بنقرة واحدة في Excel. اتبع الخطوات التالية:
1. انقر بزر الماوس الأيمن على الصورة التي تريد تكبيرها بالنقر عليها، ثم اخترتعيين ماكرومن قائمة السياق. راجع لقطة الشاشة:
2. في مربع حوارتعيين ماكرو، انقر على زرجديد.
3. في نافذةمايكروسوفت Visual Basic for Applicationsالتي تظهر، يُرجى نسخ ولصق كود VBA أدناه بين سطري الكودSub وEnd Sub. راجع لقطة الشاشة:
كود VBA: تكبير الصورة بالنقر عليها في Excel
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. بعد ذلك، اضغط معًا على مفاتيحAlt + Q لإغلاق نافذةمايكروسوفت Visual Basic for Applications.
من الآن فصاعدًا، عند النقر على الصورة، ستُكبَّر إلى الحجم الذي حددته، وتعود تلقائيًا إلى حجمها الأصلي بمجرد النقر عليها مرة أخرى، كما يظهر في لقطات الشاشة أدناه.
مقالات ذات صلة:
- كيف يمكن تثبيت صورة داخل خلية في Excel أو ربطها بها؟
- كيف يمكن عرض صورة أو صورة ديناميكية في خلية في Excel بناءً على قيمة تلك الخلية؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل