كيفية نسخ الصورة من ورقة العمل إلى نموذج المستخدم في إكسيل؟
ستوضح لك هذه المقالة طرق نسخ صورة من ورقة العمل النشطة إلى Userform في Excel.
انسخ الصورة من ورقة العمل إلى Userform مع النسخ واللصق
انسخ الصورة من ورقة العمل إلى Userform برمز VBA
انسخ الصورة من ورقة العمل إلى Userform مع النسخ واللصق
يرجى القيام بما يلي لنسخ صورة من ورقة العمل إلى Userform.
1. Shift إلى ورقة العمل تحتوي على الصورة التي تريد نسخها إلى Userform ، ثم اضغط على قديم + F11 مفاتيح معًا لفتح ملفات ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > المستخدم. انظر لقطة الشاشة:
3. الآن الرجاء إدخال عنصر تحكم الصورة في UserForm. الرجاء النقر فوق صورة زر في الأدوات مربع الحوار ، ثم ارسم عنصر تحكم الصورة في ملف المستخدم يدويا. انظر لقطة الشاشة:
4. انقر بزر الماوس الأيمن فوق عنصر تحكم الصورة المدرج ، ثم انقر فوق عقارات من قائمة السياق كما هو موضح أدناه:
5. ثم يمكنك أن ترى أ عقارات يعرض الجزء على الجانب الأيسر من ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
6. ارجع إلى ورقة العمل وحدد الصورة التي تريد عرضها في Userform ، ثم انسخ الصورة بالضغط CTRL + C مفاتيح.
7. ندخل في ميكروسوفت فيسوال باسيك للتطبيقات مرة أخرى ، قم بالتمرير لأسفل للنقر فوق ملف صورة الحقل ثم الصق اسم الصورة المنسوخة فيه ضمن علامة التبويب الأبجدية.
الآن يتم نسخ الصورة الموجودة في ورقة العمل إلى Userform.
انسخ الصورة من ورقة العمل إلى Userform برمز VBA
سيعرض لك هذا القسم حلاً لنسخ صور متعددة من ورقة العمل إلى Userform ، ثم يعرض الصورة المقابلة في Userform عن طريق تحديد اسم الصورة من مربع التحرير والسرد. الرجاء القيام بما يلي.
1. يرجى اتباع الخطوتين 1 و 2 أعلاه o أدخل Userform في ورقة العمل الخاصة بك.
2. ثم أدخل أ التحكم في الإطار في User From كما هو موضح أدناه:
3. انقر بزر الماوس الأيمن فوق الإطار المدرج ، وحدد عقارات من قائمة السياق. في اليسار عقارات جزء ، الرجاء التحديد خطأ من مرئي حقل. انظر لقطة الشاشة:
4. أدخل عنصر تحكم صورة متعددة في الإطار كما هو موضح أدناه لقطة الشاشة.
5. ارجع إلى ورقة العمل وحدد الصورة التي تريد عرضها في Userform ، واضغط على CTRL + C مفاتيح لنسخه.
6. ندخل في ميكروسوفت فيسوال باسيك للتطبيقات ، انقر بزر الماوس الأيمن فوق عنصر التحكم في الصورة الأول ، ثم حدد عقارات من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة المعروضة.
7. في ال عقارات جزء ، الرجاء النقر فوق صورة ، ثم اضغط على CTRL + V للصق الصورة التي نسختها في الخطوة 5 ، ثم حدد 1 - fmPictureSizeModeStrtch من وضع حجم الصورة القائمة المنسدلة كما هو موضح أدناه لقطة الشاشة.
8. كرر الخطوات من 5 إلى 7 للصق صور أخرى من ورقة العمل إلى عناصر تحكم الصورة اليسرى في UserForm. وستظهر النتيجة كما هو موضح أدناه.
9. حرك ملف هيكل في ركن نموذج المستخدم ، ثم أدخل ملف صورة السيطرة وأ صندوق التحرير التحكم في UserForm. انظر لقطة الشاشة:
10. انقر بزر الماوس الأيمن فوق ملف المستخدم، ثم انقر فوق عرض الرمز. ثم انسخ والصق رمز VBA أدناه لاستبدال الرمز الأصلي في نافذة Code.
كود 1 فبا: نسخ الصورة من ورقة العمل إلى Userform
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
ملاحظات: في الكود ، نموذج المستخدم1 هو اسم نموذج المستخدم المدرج، Image4 هو اسم عنصر التحكم بالصورة الذي ستعرض الصور بداخله. وتمثل الصورة جميع عناصر التحكم في الصورة التي تحتوي على الصور التي نسختها من ورقة العمل. ComboBox1 هو اسم combobox الذي قمت بإدراجه في نموذج المستخدم. يرجى تغييرها بنفسك.
11. أقفل ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
12. أدخل زر أمر في ورقة العمل بالنقر فوق المطور > إدراج > زر الأمر (عنصر تحكم ActiveX).
13. انقر بزر الماوس الأيمن فوق زر الأمر وحدد عرض الرمز من قائمة السياق. ثم قم بنسخ ولصق كود VBA أدناه في نافذة التعليمات البرمجية. وأخيرا أغلق النافذة.
كود 2 فبا: نسخ الصورة من ورقة العمل إلى Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. انقر المطور > وضع التصميم لإيقاف تشغيل وضع التصميم.
من الآن فصاعدًا، عند النقر فوق زر الأمر، سينبثق نموذج المستخدم. يمكنك عرض الصورة عن طريق تحديد اسم الصورة من مربع التحرير والسرد. انظر لقطة الشاشة:
حدد أسماء مختلفة من مربع التحرير والسرد وسيعرض صورًا مختلفة في UserForm.
مقالات ذات صلة:
- كيفية توسيط صورة في خلية Excel؟
- كيفية التحقق مما إذا كانت الخلية تحتوي على صورة في Excel؟
- كيفية إدراج صورة أو صورة ديناميكيًا في الخلية بناءً على قيمة الخلية في Excel؟
- كيفية تكبير الصورة عند الضغط عليها في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!