كيفية نسخ صورة من ورقة العمل إلى نموذج المستخدم في Excel؟

ستوضح لك هذه المقالة طرق نسخ صورة من ورقة العمل النشطة إلى نموذج المستخدم في Excel.

نسخ الصورة من ورقة العمل إلى نموذج المستخدم عن طريق النسخ واللصق
نسخ الصورة من ورقة العمل إلى نموذج المستخدم باستخدام كود VBA

نسخ الصورة من ورقة العمل إلى نموذج المستخدم عن طريق النسخ واللصق

يرجى اتباع الخطوات التالية لنسخ صورة من ورقة العمل إلى نموذج المستخدم.

1. انتقل إلى ورقة العمل التي تحتوي على الصورة التي تحتاج إلى نسخها إلى نموذج المستخدم، ثم اضغط معًا على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > نموذج المستخدم. انظر لقطة الشاشة:

3. الآن يرجى إدراج عنصر تحكم صورة في نموذج المستخدم. يرجى النقر فوق زر الصورة في مربع حوار الأدوات، ثم رسم عنصر تحكم صورة في نموذج المستخدم يدويًا. انظر لقطة الشاشة:

4. انقر بزر الماوس الأيمن على عنصر التحكم بالصورة الذي تم إدراجه، وانقر فوق خصائص من قائمة السياق كما هو موضح في لقطة الشاشة أدناه:

5. بعد ذلك يمكنك رؤية جزء الخصائص يظهر على الجانب الأيسر من نافذة Microsoft Visual Basic for Applications.

6. عد إلى ورقة العمل وحدد الصورة التي تريد عرضها في نموذج المستخدم، ثم انسخ الصورة بالضغط على مفتاحي Ctrl + C.

7. ادخل مرة أخرى إلى نافذة Microsoft Visual Basic for Applications، قم بالتمرير لأسفل للنقر على حقل اسم الصورة ثم الصق اسم الصورة المنسوخة فيه ضمن تبويب الحروف الأبجدية.

الآن تم نسخ الصورة الموجودة في ورقة العمل إلى نموذج المستخدم.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

نسخ الصورة من ورقة العمل إلى نموذج المستخدم باستخدام كود VBA

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

1. يرجى اتباع الخطوة 1 و2 أعلاه لإدراج نموذج مستخدم في ورقة العمل الخاصة بك.

2. ثم قم بإدراج عنصر تحكم إطار إلى UserFrom كما هو موضح في لقطة الشاشة أدناه:

3. انقر بزر الماوس الأيمن على الإطار الذي تم إدراجه، وحدد خصائص من قائمة السياق. في الجزء الأيسر من خصائص، يرجى تحديد لا من حقل مرئي. انظر لقطة الشاشة:

4. قم بإدراج عناصر تحكم صورة متعددة في الإطار كما هو موضح في لقطة الشاشة أدناه.

5. عد إلى ورقة العمل وحدد الصورة التي تريد عرضها في نموذج المستخدم، واضغط على مفتاحي Ctrl + C لنسخها.

6. ادخل إلى نافذة Microsoft Visual Basic for Applications، انقر بزر الماوس الأيمن على أول عنصر تحكم صورة، وحدد خصائص من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة الموضحة.

7. في جزء الخصائص، يرجى النقر على حقل اسم الصورة، ثم اضغط على مفتاحي Ctrl + V للصق الصورة التي نسختها في الخطوة 5، ثم حدد 1 – fmPictureSizeModeStrtch من قائمة منسدلة PictureSizeMode كما هو موضح في لقطة الشاشة أدناه.

8. كرر الخطوة 5 - 7 للصق صور أخرى من ورقة العمل إلى عناصر التحكم بالصور المتبقية في نموذج المستخدم. وسيكون الناتج كما هو موضح في لقطة الشاشة أدناه.

9. قم بنقل عنصر التحكم بالإطار إلى الزاوية اليمنى من نموذج المستخدم، ثم قم بإدراج عنصر تحكم صورة جديد وعنصر تحكم مربع تحرير وسرد إلى نموذج المستخدم. انظر لقطة الشاشة:

10. انقر بزر الماوس الأيمن على نموذج المستخدم، ثم انقر فوق عرض الكود. ثم انسخ والصق الكود VBA أدناه لتحل محل الكود الأصلي في نافذة الكود.

كود VBA1: نسخ الصورة من ورقة العمل إلى نموذج المستخدم

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

ملاحظة: في الكود، UserForm1 هو اسم نموذج المستخدم الذي تم إدراجه، Image4 هو اسم عنصر التحكم بالصورة الذي ستعرض الصور بداخله. وImage يمثل جميع عناصر التحكم بالصور التي تحتوي على الصور التي نسختها من ورقة العمل. ComboBox1 هو اسم مربع التحرير والسرد الذي قمت بإدراجه في نموذج المستخدم. يرجى تغييرها إلى ما يناسبك.

11. أغلق نافذة Microsoft Visual Basic for Applications.

12. قم بإدراج زر أمر في ورقة العمل عن طريق النقر فوق مطور > إدراج > زر الأمر (ActiveX Control).

13. انقر بزر الماوس الأيمن على زر الأمر وحدد عرض الكود من قائمة السياق. وبعد ذلك انسخ والصق الكود VBA أدناه في نافذة الكود. وأخيرًا أغلق النافذة.

كود VBA2: نسخ الصورة من ورقة العمل إلى نموذج المستخدم

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. انقر فوق مطور > وضع التصميم لإيقاف تشغيل وضع التصميم.

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

سيتم عرض صور مختلفة في نموذج المستخدم عند تحديد أسماء مختلفة من مربع التحرير والسرد.

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

• كيفية توسيط صورة في خلية Excel؟
• كيفية التحقق مما إذا كانت الخلية تحتوي على صورة في Excel؟
• كيفية إدراج صورة أو صورة ديناميكية في الخلية بناءً على قيمة الخلية في Excel؟
• كيفية تكبير الصورة عند النقر عليها في Excel؟