Visual Basic for Application, בקיצור VBA, הוא סוג של Visual Basic 6 המשולב בתוכנות Microsoft Office. באמצעות קידוד, VBA מאפשר לבצע אוטומציה של משימות בתוכנות אופיס, כולל Excel. במקרים מסוימים, אתה יכול אפילו להוסיף תכונות חדשות לאקסל באמצעות VBA.

למרות שאתה צריך לעבוד עם קוד כדי להשתמש ב-VBA, זה לא אומר ש-VBA הוא כולו אותיות ומספרים. עם VBA ב-Excel, אתה יכול ליצור מאקרו המאפשר לך להוסיף תמונות לתא או לטווח של תאים. המשך לקרוא כדי לגלות הכל על זה!

כיצד להכניס תמונה לתא באמצעות VBA באקסל

על מנת ליצור מאקרו להכנסת תמונות לתאי אקסל באמצעות VBA, למעשה אינך זקוק לידע מתקדם של Visual Basic. כל מה שאתה צריך לעשות הוא להפעיל כלי מפתחים, ליצור את המאקרו ולהדביק את הקוד הנכון.

עם זאת, אם אתה מעוניין ללמוד VBA ולכתוב קוד משלך מתישהו, פירקנו את קוד VBA בחלק השלישי. כמובן, גם אתה יכול הוסף תמונות באקסל מבלי להשתמש ב-VBA. אבל מאמר זה עוסק בביצוע זה באמצעות VBA. בוא ניגש לעניין!

על מנת להשתמש ב-VBA באקסל, עליך להפעיל כלי מפתחים באקסל. פעולה זו תפעיל את הכרטיסייה מפתחים ברצועת הכלים, המושבתת כברירת מחדל.

  1. פתח את אקסל.
    2. instagram viewer
  2. עבור אל קוֹבֶץ תַפרִיט.
  3. לחץ על אפשרויות בתחתית המסך. פעולה זו תפתח את חלון אפשרויות Excel.
  4. באפשרויות Excel, עבור אל התאמה אישית של סרט לשונית.
  5. תַחַת כרטיסיות ראשיות, חשבון מפתח.

כעת כלים למפתחים, כולל גישה ל-VBA, מופעלים עבורך. אינך צריך לעשות זאת בכל פעם שאתה רוצה להשתמש ב-VBA באקסל. כלים למפתחים יישארו פעילים עד שתשבית אותם.

2. יצירת המאקרו והכנסת הקוד

עכשיו הגיע הזמן להתחיל ליצירת המאקרו. לחילופין, אתה יכול גם צור כפתור באמצעות VBA עבור המשימה הזו, אבל אנחנו הולכים להישאר עם פקודות מאקרו.

  1. ב-Excel, עבור אל מפתח לשונית.
  2. בתוך ה קוד סעיף, בחר מאקרו.
  3. בחלון החדש, הזן שם עבור המאקרו שלך תחת שם מאקרו. אנחנו הולכים להשתמש insertPhotoMacro.
  4. נְקִישָׁה לִיצוֹר.

לאחר שתלחץ על צור, חלון VBA ייפתח ויציג את הקוד עבור המאקרו שלך. כרגע, הקוד יהיה מורכב משתי שורות: א תַת כדי להפעיל את המאקרו, ו- an סיום משנה כדי לסיים את זה.

בואו נוסיף קצת קוד למאקרו הזה. הוסף את הקוד הבא בין שתי השורות:

עמום photoNameAndPath כפי ש גִרְסָה אַחֶרֶת
תמונה עמומה כפי ש תְמוּנָה
photoNameAndPath = יישום. GetOpenFilename (Title:="בחר תמונה ללְהַכנִיס")
אם photoNameAndPath = שֶׁקֶר לאחר מכן יְצִיאָה תַת
מַעֲרֶכֶת תמונה = ActiveSheet. תמונות. הוסף (photoNameAndPath)
עם תמונה
 .Left = ActiveSheet. טווח("A1").שמאלה
 .Top = ActiveSheet. טווח("A1").חלק עליון
 .Width = ActiveSheet. טווח("A1").רוֹחַב
 .Height = ActiveSheet. טווח("A1").גוֹבַה
 .מיקום = 1
סוֹףעם

הקוד הסופי שלך צריך להיות משהו כמו הבא:

אתה לא צריך לדאוג לגבי שמירת ההתקדמות שלך. כל שינוי שתבצע ב-VBA נשמר באופן מיידי.

עכשיו הגיע הזמן לראות את הקוד עובד.

  1. סגור את חלון VBA.
  2. עבור אל מפתח לשונית באקסל.
  3. בחר מאקרו מ ה קוד סָעִיף.
  4. הדגש את המאקרו שיצרת זה עתה.
  5. נְקִישָׁה לָרוּץ.

כעת תיפתח הנחיה המבקשת ממך לאתר את קובץ התמונה שברצונך להוסיף. בחר את התמונה שלך ולאחר מכן לחץ לִפְתוֹחַ. כעת אתה אמור לראות את התמונה שלך בתא A1!

שימו לב שהתמונה שהוכנסה מכווצת כך שתתאים לתא A1. אתה יכול לשנות זאת, וגם לשנות את הקוד כדי להכניס את התמונה לתאים אחרים או אפילו לטווח של תאים. בסעיף הבא, אנחנו הולכים לפרק את הקוד ולהסביר את הפרמטרים בעבודה.

3. פירוק הקוד

כדי לגרום לקוד ה-VBA הזה לעבוד בשבילך כמו שאתה רוצה, אתה צריך להבין אותו. לאחר שתעשה זאת, תוכל לשנות את הקוד כדי להכניס תמונות לכל תא בכל גודל. אנו נעבור על הקוד טיפין טיפין כדי שיהיה קל יותר להבין אותו.

Sub insertPhotoMacro()
עמום photoNameAndPath כפי ש גִרְסָה אַחֶרֶת
תמונה עמומה כפי ש תְמוּנָה
photoNameAndPath = יישום. GetOpenFilename (Title:="בחר תמונה ללְהַכנִיס")
אם photoNameAndPath = שֶׁקֶר לאחר מכן יְצִיאָה תַת
מַעֲרֶכֶת תמונה = ActiveSheet. תמונות. הוסף (photoNameAndPath)
עם תמונה
.Left = ActiveSheet. טווח("A1").שמאלה
.Top = ActiveSheet. טווח("A1").חלק עליון
.Width = ActiveSheet. טווח("A1").רוֹחַב
.Height = ActiveSheet. טווח("A1").גוֹבַה
.מיקום = 1
סוֹףעם
סוֹף תַת

ברגע שהקוד מתחיל, אנו משתמשים ב- עָמוּם הצהרה כדי לקבוע את סוג המשתנה. יש לנו כאן שני משתנים: photoNameAndPath ו תמונה עצמו. קבענו את הראשון בתור א גִרְסָה אַחֶרֶת והאחרון בתור א תמונה.

משם, המשתנה photoNameAndPath פועל והוא פותח אפליקציה כדי לקבל את מקום הימצאו של קובץ התמונה. זה נעשה דרך יישום. GetOpenFileName. ה כותרת הפרמטר הוא אופציונלי, והתוכן בו מוצג כשם החלון.

באמצעות אם photoNameAndPath = False אז צא משנה, אנו מציינים שאם ניתנת כתובת לא חוקית או ריקה, יש לסיים את התהליך. עם זאת, אם קובץ מתאים מוזן, אז הגדר תמונה = ActiveSheet. תמונות. הוסף (photoNameAndPath) מציין שיש להגדיר את התמונה כמשתנה הצילום שהגדרנו קודם, ויש להכניס אותו לגיליון האלקטרוני הפעיל.

סוף סוף משתמש עם תמונה וחמשת השורות שאחריה, נרחיב על מיקום התמונה. .שמאלה ו .חלק עליון לציין את מיקומי ההתחלה, בעוד .רוֹחַב ו .גוֹבַה לציין את מיקומי הקצה. אם אתה מעוניין להכניס את התמונה לתאים אחרים, או בטווח, אז אלה הקווים שאתה צריך לשנות.

.מיקום מציין אם יש להתאים את התמונה לתאים או להכניס אותה בצורה חופשית. מגדיר את זה ל 1 יגודל אותו עם התאים.

בסופו של דבר, אנחנו משתמשים סיים עם ואז סיום משנה כדי לסגור את המאקרו. שים לב שאתה יכול לשנות את photoNameAndPath ו תמונה משתנים לכל שם אחר שתרצה. רק זכור לשמור על עקביות השמות לאורך כל הקוד.

עשה יותר ב-Excel עם VBA

אקסל הוא אכן כלי נפלא לארגון וניתוח נתונים, אבל זה לא אומר שאקסל אינו כשיר בכל הנוגע לגרפיקה. למרות שתמונות ומפות סיביות אינן הצד החזק ביותר של Excel, Excel עדיין מסוגל לטפל בהן בצורה מושלמת.

למרות שאתה יכול להוסיף תמונות ב-Excel באמצעות הממשק כפי שהיית עושה באפליקציות אחרות של Office, אתה יכול גם לעשות זאת באמצעות VBA. עם VBA, אתה יכול להפוך את המשימה הזו לאוטומטית ואפילו לקשר אותה עם משימות אחרות להפעלה בו זמנית. האפשרויות עם VBA באקסל הן אינסופיות.