Visual Basic for Application ، VBA باختصار ، هو شكل من أشكال Visual Basic 6 مدمج في برامج Microsoft Office. من خلال الترميز ، يسمح لك VBA بأتمتة المهام في برامج Office ، بما في ذلك Excel. في بعض الحالات ، يمكنك إضافة ميزات جديدة إلى Excel باستخدام VBA.

على الرغم من أنك بحاجة إلى العمل باستخدام التعليمات البرمجية لاستخدام VBA ، فإن هذا لا يعني أن VBA عبارة عن أحرف وأرقام. باستخدام VBA في Excel ، يمكنك إنشاء ماكرو يسمح لك بإدراج الصور في خلية أو نطاق من الخلايا. تابع القراءة لمعرفة كل شيء عنها!

كيفية إدراج صورة في خلية باستخدام VBA في Excel

من أجل إنشاء ماكرو لإدراج الصور في خلايا Excel باستخدام VBA ، فأنت لا تحتاج في الواقع إلى أي معرفة متقدمة في Visual Basic. كل ما عليك فعله هو تمكين أدوات المطور ، وإنشاء الماكرو ولصق الكود الصحيح.

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

من أجل استخدام VBA في Excel ، تحتاج إلى تمكين أدوات Developer في Excel. سيؤدي هذا إلى تمكين علامة التبويب المطور في الشريط ، والتي يتم تعطيلها افتراضيًا.

instagram viewer

  1. افتح برنامج Excel.
  2. اذهب إلى ملف قائمة طعام.
  3. انقر فوق خيارات في الجزء السفلي من الشاشة. سيؤدي هذا إلى فتح نافذة خيارات Excel.
  4. في خيارات Excel ، انتقل إلى ملف تخصيص الشريط فاتورة غير مدفوعة.
  5. تحت علامات التبويب الرئيسية، يفحص مطور.

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

2. إنشاء الماكرو وإدخال الكود

حان الوقت الآن للبدء في إنشاء الماكرو. بدلا من ذلك ، يمكنك أيضا إنشاء زر باستخدام فبا لهذه المهمة ، لكننا سنلتزم بوحدات الماكرو.

  1. في Excel ، انتقل إلى مطور فاتورة غير مدفوعة.
  2. في ال شفرة قسم ، حدد وحدات الماكرو.
  3. في النافذة الجديدة ، أدخل اسمًا لماكروك أسفل اسم الماكرو. سوف نستخدم insertPhotoMacro.
  4. انقر يخلق.

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

دعونا نضيف بعض التعليمات البرمجية إلى هذا الماكرو. أضف الكود التالي بين السطرين:

خافت photoNameAndPath مثل متغير
صورة قاتمة مثل صورة
photoNameAndPath = التطبيق. GetOpenFilename (العنوان: = "يختار صورة لإدراج")
لو photoNameAndPath = خطأ شنيع ثم مخرج الفرعية
تعيين الصورة = ActiveSheet. الصور. إدراج (photoNameAndPath)
مع صورة
. اليسار = ActiveSheet. يتراوح("أ 1").غادر
 .Top = ActiveSheet. يتراوح("أ 1").قمة
. العرض = ActiveSheet. يتراوح("أ 1").عرض
 .Height = ActiveSheet. يتراوح("أ 1").ارتفاع
. التنسيب = 1
نهايةمع

يجب أن يكون الرمز النهائي الخاص بك شيئًا مثل ما يلي:

لا داعي للقلق بشأن حفظ تقدمك. يتم حفظ كل تغيير تقوم به في VBA على الفور.

حان الوقت الآن لرؤية الكود في العمل.

  1. أغلق نافذة VBA.
  2. اذهب إلى مطور علامة التبويب في Excel.
  3. يختار وحدات الماكرو من شفرة قسم.
  4. قم بتمييز الماكرو الذي أنشأته للتو.
  5. انقر يجري.

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

لاحظ أنه تم تقليص الصورة المدرجة لتناسب الخلية A1. يمكنك تغيير هذا ، وكذلك تغيير الكود لإدراج الصورة في خلايا أخرى أو حتى في نطاق من الخلايا. في القسم التالي ، سنقوم بتفكيك الكود وشرح المعلمات في العمل.

3. تحطيم المدونة

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

إدراج فرعي PhotoMacro ()
خافت photoNameAndPath مثل متغير
صورة قاتمة مثل صورة
photoNameAndPath = التطبيق. GetOpenFilename (العنوان: = "يختار صورة لإدراج")
لو photoNameAndPath = خطأ شنيع ثم مخرج الفرعية
تعيين الصورة = ActiveSheet. الصور. إدراج (photoNameAndPath)
مع صورة
. اليسار = ActiveSheet. يتراوح("أ 1").غادر
.Top = ActiveSheet. يتراوح("أ 1").قمة
. العرض = ActiveSheet. يتراوح("أ 1").عرض
.Height = ActiveSheet. يتراوح("أ 1").ارتفاع
. التنسيب = 1
نهايةمع
نهاية الفرعية

بمجرد أن يبدأ الكود ، نستخدم الامتداد خافت بيان لتحديد نوع المتغير. لدينا متغيرين هنا: فوتوينامياندباث و صورة بحد ذاتها. لقد قررنا أن الأول هو متغير والأخير باعتباره أ صورة.

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

استخدام إذا كان photoNameAndPath = False ثم اخرج من Sub، نحدد أنه في حالة تقديم عنوان غير صالح أو فارغ ، يجب إنهاء العملية. ومع ذلك ، إذا تم تغذية ملف مناسب ، إذن تعيين الصورة = ActiveSheet. الصور. إدراج (photoNameAndPath) يشير إلى أنه يجب تعيين الصورة كمتغير الصورة الذي حددناه سابقًا ، ويجب إدراجها في جدول البيانات النشط.

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

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

في النهاية ، نستخدم ملفات انتهت ب وثم End Sub لإغلاق الماكرو. لاحظ أنه يمكنك تغيير ملف فوتوينامياندباث و صورة المتغيرات لأي اسم آخر تريده. فقط تذكر أن تحافظ على اتساق الأسماء في جميع أنحاء الكود.

احصل على المزيد في Excel باستخدام VBA

يعد Excel بالفعل أداة رائعة لتنظيم البيانات وتحليلها ، لكن هذا لا يعني أن Excel غير كفء عندما يتعلق الأمر بالرسومات. على الرغم من أن الصور والصور النقطية ليست هي الأقوى في Excel ، إلا أن Excel لا يزال قادرًا تمامًا على التعامل معها.

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