كيفية إدراج الصورة في مربع النص؟

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

قم بإدراج صورة أو صورة في مربع نص برمز VBA

قم بإدراج صورة أو صورة في مربع نص برمز VBA

لإدراج صورة في مربع نص ، قد يساعدك رمز VBA التالي ، يرجى القيام بذلك على النحو التالي:

1. أدخل مربع نص عن طريق النقر إدراج > مربع النص، ثم ارسم مربع نص ، انظر الصورة:

2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: إدراج صورة في مربع النص:

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: \ المستخدمون \ DT168 \ سطح المكتب \ الصور \ Apple.JPG هو مسار الصورة للصورة التي تريد إدراجها ، يجب عليك تغييرها حسب حاجتك.

4. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، سيتم إدراج الصورة المحددة في مربع النص مرة واحدة ، ويمكنك تحرير مربع النص كما تريد ، انظر لقطة الشاشة:

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

كيفية تعيين قيمة افتراضية في مربع نص؟

كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟

كيفية تطبيق التدقيق الإملائي في مربع النص؟

كيفية تغيير لون مربع النص بناءً على القيمة في Excel؟