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

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

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

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

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

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

doc إدراج الصورة في مربع النص 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 المفتاح لتشغيل هذا الرمز ، سيتم إدراج الصورة المحددة في مربع النص مرة واحدة ، ويمكنك تحرير مربع النص كما تريد ، انظر لقطة الشاشة:

doc إدراج الصورة في مربع النص 2

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

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

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

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

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

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (6)

لا يوجد تقييم. كن أول من يقيم!

هارفي هيكيف

منذ حوالي 2 سنوات

#33603

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

سكايانغ هارفي هيكيف

منذ حوالي 2 سنوات

#33604

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا ， هارفي ，
هل تقوم بتغيير اسم الورقة ومسار الصورة إلى اسمك في الكود؟ من فضلك خدها ، شكرا لك!

ملاحظة: في الكود أعلاه ، Sheet4 هو اسم الورقة الذي يحتوي على مربع النص الذي تريد إدراج الصورة فيه ، و C: \ المستخدمون \ DT168 \ سطح المكتب \ الصور \ Apple.JPG هو مسار الصورة للصورة التي تريد إدراجها ، يجب عليك تغييرها حسب حاجتك.

رد

بلغ

اليكس بينيدا سكايانغ

منذ حوالي سنة واحدة

#33605

تم تصغير هذا التعليق بواسطة المشرف على الموقع

إنه يعمل بشكل مثالي. قم فقط بتغيير اسم مربع النص كما هو موضح:
تعيين xSh = Sheets ("Sheet1"). الأشكال ("TextBox 2")

رد

ميج سكايانغ

قبل حوالي 1 شهر

#42246

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سكاي
لقد قمت بتغيير اسم الورقة ومسار الصورة. لكنها ما زالت لا تعمل.

لدي أخطاء هنا في "xSh.Fill.UserPicture xFileName"

شكرا جزيلا.
ميج

رد

سكايانغ ميج

منذ حوالي أسبوعين

#42317

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

Sub InsertPicture()
    Dim sPicture As String, pic As Picture
    Dim shp As Shape, shps As ShapeRange  
    sPicture = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif;*.png), *.gif; *.jpg; *.bmp; *.tif; *.png", _
        , "Select Picture to Import") 
    If sPicture = "False" Then Exit Sub   
    Set shp = ActiveSheet.Shapes("Text Box 1")
    Set pic = ActiveSheet.Pictures.Insert(sPicture)
    With pic
        .Name = "My Picture"
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = shp.Height
        .Width = shp.Width
        .Top = shp.Top
        .Left = shp.Left
        .Placement = xlMoveAndSize
    End With
    Set shps = ActiveSheet.Shapes.Range(Array("Text Box 1", "My Picture"))
    shps.Group
    shps.Name = "Pic inside text box"    
    Set pic = Nothing
End Sub

يرجى المحاولة ، آمل أن يساعدك!
إذا كان لديك أي مشكلة أخرى ، يرجى التعليق هنا.

رد

بلغ

هارفي هيكر

منذ حوالي 2 سنوات

#33647

تم تصغير هذا التعليق بواسطة المشرف على الموقع

نعم ، لقد غيرت كليهما. لم أحصل على أي أخطاء عندما قمت بتشغيل الماكرو باستخدام مفتاح F5.

حاولت وضع الماكرو في مجلدات مختلفة من المصنف ، وورقة العمل ، والوحدة النمطية ، ووحدة الفصل الدراسي ، لكن النتائج كانت هي نفسها: لا توجد صورة في مربع النص.

شكرًا على مراسلتنا. الاسم الأخير هو Hecker ، راجع للشغل .... خطأ مطبعي

رد

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط