כיצד להכניס תמונה לתוך תיבת טקסט?

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

הכנס תמונה או תמונה לתוך תיבת טקסט עם קוד VBA

הכנס תמונה או תמונה לתוך תיבת טקסט עם קוד VBA

כדי להכניס תמונה לתוך תיבת טקסט, הקוד הבא של VBA עשוי לעזור לך, אנא עשה כך:

1. הוסף תיבת טקסט על ידי לחיצה על הוסף > תיבת טקסט, ולאחר מכן צייר תיבת טקסט, ראה צילום מסך:

2. לאחר מכן החזק את מקשי ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

3. לחץ על הוסף > מודול, והדבק את הקוד הבא בחלון ה מודול.

קוד VBA: הכנס תמונה לתוך תיבת טקסט:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

הערה: בקוד לעיל, Sheet4 הוא שם הגיליון שמכיל את תיבת הטקסט שבה ברצונך להכניס תמונה, ו-C:\Users\DT168\Desktop\pictures\Apple.JPG הוא הנתיב של התמונה שברצונך להכניס, עליך לשנות אותם לפי הצורך שלך.

4. ולאחר מכן לחץ על מקש F5 כדי להריץ את הקוד הזה, התמונה הספציפית תיכנס לתוך תיבת הטקסט מיידית, תוכל לערוך את תיבת הטקסט לפי הצורך שלך, ראה צילום מסך:

פתחו את הקסם של Excel עם Kutools AI

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

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!

מאמרים קשורים:

כיצד להגדיר ערך ברירת מחדל בתיבת טקסט?

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

כיצד ליישם בדיקת איות בתיבת טקסט?

כיצד לשנות את צבע תיבת הטקסט בהתבסס על ערך ב-Excel?