Note: The other languages of the website are Google-translated. Back to English

كيفية تكبير الصورة عند الضغط عليها في 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 مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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


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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Maravilloso funciona Perfecto !!!.
Hay forma que la imagen quede en el cento de la pantalla، solo es una oncesion، nada mas، la macro anda muy bien
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل بشكل جيد
ولكن عندما تفتح المصنف مرة ثانية ، تظهر الصور غير واضحة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما تدخل الكود وتضغط على حفظ ، تصبح الصور أصغر وأصغر ... فكرة رائعة ولكنها لا تعمل ، أخشى ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا ما أبحث عنه ولكنه لن يعمل مع برنامج excel 2016 الخاص بي. تلقيت رسالة خطأ Application.caller = خطأ 2023
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحاول تعديل القيم الكبيرة (1) والصغيرة (0.1) لكن الماكرو لا يعمل بشكل صحيح. بعد النقر فوق الصورة لا يتم تعديل:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل الماكرو ، والمشكلة هي أنه عند تغيير حجم الصورة في الماكرو ، إذا انتقلت أدناه 1 ، وحفظت ، ستفقد الصورة جودتها :(
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعلم أن jpg تفقد الجودة في كل مرة يتم حفظها فيها. لهذا السبب ينصح المستخدمون بالحفظ في اسم ملف جديد. قد يكون هذا هو السبب في أن الأشخاص الذين يحاولون استخدام هذا الماكرو ينتهي بهم الأمر بصور غير واضحة. قد يكون النهج الأفضل هو الحصول على صورتين - كبيرة وصغيرة للصورة نفسها. يتم وضع الصغير في الخلية ، والكبير في ورقة مختلفة ، نفس الملف. ثم استخدم الكود لإظهار الصورة الكبيرة عند النقر فوق الصورة الصغيرة أو التمرير فوقها. من هنا. لا يتم تغيير حجم أي صورة وبالتالي لا ينبغي أن تفقد الجودة. لست متأكدًا من أن Kutools قادرة على القيام بذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Lösung zu verpixelte Bilder
Ich hatte dasselbe المشكلة مع دن verpixelten Bildern. Du musst in den Einstellungen etwas ändern und zwar:
Unter Datei / Optionen / Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei komprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. ال جي
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL