كيف تُدرج صورة داخل مربع نصي؟
بشكل افتراضي، يمكنك إدراج صورة في ورقة العمل بسرعة باستخدام وظيفة «الإدراج»، لكن هذا الخيار لا يدعم إضافة صورة داخل مربع نصي. ومع هذا المقال، سأساعدك على إدراج صورة في مربع نصي وفقًا لاحتياجاتك.
إدراج صورة أو صورة في مربع نصي باستخدام كود VBA
إدراج صورة أو صورة في مربع نصي باستخدام كود VBA
لإدراج صورة داخل مربع نص، يمكنك استخدام كود VBA التالي. يُرجى اتباع الخطوات التالية:
1. أدرج مربع نص بالضغط علىإدراج > مربع نص، ثم ارسم مربع النص. انظر لقطة الشاشة:
2. بعد ذلك، اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
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 لتشغيل هذا الكود، وستُدرج الصورة المحددة في مربع النص فورًا. ويمكنك تعديل مربع النص حسب رغبتك—انظر لقطة الشاشة:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
كيف تعيين قيمة افتراضية في مربع نصي؟
كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟
كيف يمكن تطبيق التدقيق الإملائي داخل مربع نص؟
كيف يمكن تغيير لون مربع النص في Excel استنادًا إلى القيمة؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل