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

 كيفية تكبير أو تصغير الصورة بنقرة واحدة في Excel؟

لنفترض أن هناك صورًا متعددة في ورقة بأحجام مختلفة. هل لديك أي طرق لتكبير أو تصغير هذه الصور بحجم واحد بنقرة واحدة؟ لا توجد ميزة مضمنة لحلها ، ولكن في هذه المقالة ، أقدم رمز VBA لتكبير أو تصغير جميع الصور في الورقة بنقرة واحدة.

تكبير الصور وتقليصها بنقرة واحدة بواسطة VBA


السهم الأزرق الحق فقاعة تكبير الصور وتقليصها بنقرة واحدة بواسطة VBA

قم بالخطوات التالية لتكبير الصور أو تصغيرها بنقرة واحدة.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة حيث تريد تغيير حجم الصور ، ثم حدد عرض الرمز من قائمة السياق.
doc لتكبير الصورة بنقرة واحدة 1

2. في ظهرت Microsoft Visual Basic للتطبيقs ، والصق الكود أدناه في البرنامج النصي الفارغ.

VBA: تكبير الصور وتصغيرها بنقرة واحدة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc لتكبير الصورة بنقرة واحدة 2

 

3. احفظ الرمز وأغلق النافذة. وعند النقر فوق أي خلية في العمود A ، سيتم تقليص جميع الصور. انظر لقطة الشاشة:
doc لتكبير الصورة بنقرة واحدة 3

4. وعند النقر فوق الخلية الموجودة في الجزء العلوي الأيمن من الصورة ، سيتم تكبير الصورة النسبية. انظر لقطة الشاشة:
doc لتكبير الصورة بنقرة واحدة 4

تلميح.إذا كنت تريد إدخال علامة مائية بسرعة في ورقة ، فيرجى محاولة استخدام Kutools for Excel's إدراج علامة مائية كما هو موضح في الصورة التالية. إنها تعمل بكامل طاقتها دون قيود 30 أيام، يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.

وثيقة إدراج العلامة المائية

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (5)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عذرًا ، لم أكن أعرف سبب عدم نجاحها في حالتك ، ولكن قبل تنفيذ هذا البرنامج التعليمي ، قمت باختباره عدة مرات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أحفظ كمصنف ممكن بماكرو ، أغلق ثم أعيد فتحه ، فقد تم فقد تكامل الصورة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد اختبرت ذلك لحفظ المصنف كمصنف لتمكين الماكرو ، وإعادة فتح مصنف تمكين الماكرو ، ولا تزال الصورة موجودة ، ويمكن أن يعمل الرمز أيضًا. ربما تحاول حفظ المصنف قبل حفظه كمصنف لتمكين الماكرو.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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