كيف يمكن نسخ صورة من ورقة العمل ولصقها في نموذج المستخدم (UserForm) في Excel؟

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

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

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

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

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

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر علىإدراج > نموذج مستخدم (UserForm). انظر لقطة الشاشة:

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

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

5. بعد ذلك، ستظهر لك لوحةالخصائص (Properties)على الجانب الأيسر من نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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

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

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

افتح سحر إكسل مع KUTOOLS AI

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

حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

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

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

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

2. بعد ذلك، أضف عنصر تحكمإطار (Frame Control)إلى نموذج المستخدم كما هو موضح في لقطة الشاشة أدناه:

3. انقر بزر الماوس الأيمن على الإطار المُدرج، ثم اخترخصائص (Properties)من القائمة السياقية. في لوحةالخصائص (Properties)على اليسار، غيّر قيمة «يرجى التحديد» إلىFalse في حقلمرئي (Visible). انظر لقطة الشاشة:

4. أدرج عدة عناصر تحكم صورة (Image control) داخل الإطار، كما يظهر في لقطة الشاشة أدناه.

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

6. ادخل إلى نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقر بزر الماوس الأيمن على أول عنصر تحكم صورة، واخترخصائص (Properties)من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة المعروضة.

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

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

9. حرّك عنصر التحكمالإطار (Frame)إلى زاوية نموذج المستخدم، ثم أدرج عنصر تحكم صورة جديد(Image) وعنصر تحكممربع تحرير وسرد (Combo Box)في نموذج المستخدم. انظر لقطة الشاشة:

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

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

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. أغلق نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

12. أدرج زر أمر في ورقة العمل بالنقر علىالمطوّر (Developer) > إدراج (Insert) > زر الأمر (Command Button) (عنصر تحكم ActiveX).

13. انقر بزر الماوس الأيمن على زر الأمر، ثم اختر من القائمة السياقيةعرض الكود (View Code). بعد ذلك، انسخ ولصق كود VBA أدناه في نافذة الكود، ثم أغلِق هذه النافذة.

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

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. انقر علىالمطوّر (Developer) > وضع التصميم (Design Mode)لإيقاف وضع التصميم.

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

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

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

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

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...