Note: The other languages of the website are Google-translated. Back to English

كيفية إدراج صور متعددة وتغيير حجمها مرة واحدة في Excel؟

من السهل علينا إدراج صورة واحدة في Excel ، ولكن إذا كنت بحاجة إلى إدراج صور متعددة في وقت واحد حتى تتمكن من توفير الكثير من الوقت ، فكيف يمكنك القيام بذلك؟


قم بإدراج صور متعددة وقم بتغيير حجمها بشكل مجمّع عن طريق ميزة "إدراج صورة"

يمكننا إدراج صور متعددة بشكل مجمّع عن طريق ميزة (إدراج) صورة في Excel ، ثم تغيير حجمها في وقت واحد. الرجاء القيام بما يلي:

1. في ورقة العمل ، انقر فوق "نعم" إدراج > صورة.

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

يتم الآن إدراج الصور بشكل مجمّع ومكدس في ورقة العمل.

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

الآن يتم تغيير جميع الصور المدرجة إلى نفس الحجم دفعة واحدة.

4. في الوقت الحالي ، تحتاج إلى نقل كل صورة يدويًا بشكل منفصل إلى مكان مناسب.

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

تُدرج الدفعة صورًا متعددة تتطابق مع محتويات الخلية في Excel

تطابق استيراد الصور ميزة Kutools for Excel ، هي أداة رائعة يمكنها تجميع استيراد وإدراج صور متعددة بناءً على محتويات الخلية ، وتغيير حجم الصور المستوردة بنفس حجم الخلية أو إلى الحجم المحدد بسهولة.


إعلان يطابق الصور المستوردة 01

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

قم بإدراج صور متعددة وقم بتغيير حجمها دفعة واحدة باستخدام OneNote

لتجنب نقل الصور المكدسة واحدة تلو الأخرى ، تقدم هذه الطريقة خدعة أخرى لإدراج صور متعددة بمساعدة OneNote. يرجى القيام بما يلي:

1. قم بتشغيل OneNote وأنشئ صفحة جديدة. ثم انقر فوق إدراج > صورة.

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

doc إدراج صور متعددة OneNote 032

3. صحافة CTRL + A لتحديد كل الصور المدرجة في OneNote ، ثم اضغط على CTRL + C مفاتيح لنسخها.

4. انتقل إلى ورقة العمل في Excel ، واضغط على CTRL + V مفاتيح للصق الصور في ورقة العمل. الآن يتم لصق جميع الصور عموديًا كما هو موضح في لقطة الشاشة اليسرى.

5. حدد أي صورة ، واضغط على CTRL + A مفاتيح لتحديد كل منهم. ثم قم بتغيير حجم الصور دفعة واحدة عن طريق إدخال أرقام جديدة في كليهما عرض و الطول مربعات في المقاس مجموعة على شكل التبويب. انظر لقطة الشاشة:

الآن يتم إدراج جميع الصور المحددة في Excel وتغيير حجمها بنفس الحجم بكميات كبيرة.


قم بإدراج صور متعددة في Excel باستخدام كود VBA

باستخدام رمز VBA التالي ، يمكنك إدراج صور متعددة في ملف Excel خلية تلو الأخرى.

1. حدد الخلية الأولى من النطاق الوجهة الذي تريد إدراج الصور فيه.

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

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

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. ثم اضغط على F5 مفتاح لتشغيل هذا الرمز.

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


أدخل صورًا متعددة واضبطها تلقائيًا باستخدام Kutools for Excel

كوتولس ل إكسيلالصورة استيراد الصور يمكن أن تساعدك الأداة المساعدة في إدراج صور متعددة في Excel بسرعة بناءً على حجم الخلية أو حجم الصورة. يمكنك تحديد ارتفاع الصور وعرضها حسب حاجتك أيضًا.

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

1. انقر كوتولس بلس > استيراد / تصدير > استيراد الصور، انظر لقطة الشاشة:

2. في استيراد الصور مربع الحوار ، يرجى القيام بما يلي:
(1) حدد ترتيب عرض الصور من ملف أمر استيراد القائمة المنسدلة ، يمكنك الاختيار ملء عمودي خلية بعد خلية or تعبئة أفقية خلية بعد خلية.
(شنومكس) انقر أضف لتحديد ملفات الصور أو المجلد لإضافة الصور إلى قائمة الصور. وسيتم سرد جميع الصور التي حددتها في مربع القائمة.
(3) انقر فوق حجم الاستيراد زر؛

3. الآن في استيراد حجم الصورة الحوار ، يمكنك اختيار حجم الصورة المطابق لحاجتك. انظر لقطة الشاشة:

4. بعد تحديد حجم الصورة ، الرجاء الضغط OK لإغلاق هذا الحوار والعودة إلى استيراد الصور الحوار، انقر فوق استيراد زر لاستيراد الصور.

5. في مربع حوار استيراد الصور الجديد ، يرجى اختيار الخلية الأولى من نطاق الوجهة الذي ستقوم بإدراج الصور فيه ، ثم النقر فوق OK .

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

استيراد الصور تم تصميم ميزة Kutools for Excel لإدراج مجموعة من الصور في وقت واحد مع مطابقة حجم الخلية أو الحجم المحدد أو أحجام الصور الخاصة في Excel. احصل على نسخة تجريبية مجانية!


أدخل عدة صور مطابقة مع أسمائهم مع كوتولس ل إكسيل

Kutools for Excel يدعم أيضًا ملف تطابق استيراد الصور ميزة لمطابقة الصور ومحتويات الخلية وإدراج الصور المتطابقة بكميات كبيرة فقط في Excel.

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

1. حدد خلايا اسم صورتك التي تريد إدراج الصور المطابقة لها ، ثم انقر فوق كوتولس بلس > استيراد / تصدير > تطابق استيراد الصور. انظر لقطة الشاشة:

2. في مربع حوار مطابقة استيراد الصور المنبثقة ، يرجى القيام بما يلي:
(1) حدد ترتيب عرض الصور من ملف أمر استيراد قائمة منسدلة؛
(شنومكس) انقر أضف زر لإضافة الصور إلى مربع قائمة الصور. لمعلوماتك ، سيتم سرد الصور المتطابقة فقط.
(3) ثم انقر فوق حجم الاستيراد .

3. الآن في استيراد حجم الصورة الحوار ، يمكنك اختيار حجم الصورة الذي يتناسب مع حاجتك ، والنقر فوق Ok زر. انظر لقطة الشاشة:

4. الآن تعود إلى استيراد الصور الحوار، انقر فوق استيراد زر لاستيراد الصور.

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

حتى الآن ، يتم إدراج جميع الصور في الخلايا بناءً على أسمائها النسبية. انظر لقطة الشاشة الصحيحة:

تطابق استيراد الصور يمكن أن تساعد ميزة Kutools for Excel مستخدمي Excel على تصفية الصور بسرعة بناءً على قيم الخلية ثم إدراج هذه الصور بكميات كبيرة. بالإضافة إلى ذلك ، يمكن تغيير حجم هذه الصور المتطابقة إلى الحجم المحدد أو حجم الخلية تلقائيًا. احصل على نسخة تجريبية مجانية!


العرض التوضيحي: أدخل عدة صور وقم بتغيير حجمها مرة واحدة في Excel

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود 30 يوما. تجربة مجانية الآن!      شراء الآن!


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (47)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الإرشادات التي تحتوي على العنوان: إدراج صور متعددة في Excel باستخدام رمز VBA هو ببساطة رائع وسريع وفعال !!! هذا بديل جيد لشراء المكونات الإضافية وتثبيتها. هذا أول تعليقي على الإنترنت !! مجد!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا قادر على استخدام وحدة InsertPictures ويعمل بشكل صحيح بقدر jpg. لا تريد العمل مع PNG بالرغم من ذلك. هل تستطيع أن تنصحني من فضلك؟ تحياتي ، لورانس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الموضوع الأول "إدراج صور متعددة في Excel برمز VBA" ، كيف تقوم بإدراج صورة واحدة في خليتين. على سبيل المثال ، سيتم إدراج الصورة الأولى في الخلية A1 و A2 ، وسيتم إدراج الصورة الثانية في الخلية A3 و A4 وما إلى ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
دعم جيد لبرنامج Excel ..... إنك gyus تساعد حقًا في توفير الوقت. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ملصق ممتاز! ولكن لدي طرق أخرى للقيام بنفس الشيء ..... ==================================== ============ Sub ipic () Dim i As Integer For i = 2 إلى 10 خلايا (i ، 1). حدد اسم الصورة الخافت باسم سلسلة picname = الخلايا (i ، 2) ActiveSheet.Pictures. أدخل ("F: \ Ram-PC \ Macro \ MyImage \" & picname & ".jpg"). حدد مع التحديد. اليسار = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34 #. ShapeRange.Width = 80 # End With Next Range ("a1"). حدد End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك نسخة من Kuttools لنظام التشغيل Mac؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن تعديل كود vba لإدراج 4 صور في أب شبيه بالشبكة مثل هذا: pic1 في A1 ، pic2 في A2 ، pic3 في B1 و pic4 في B2؟ الدبابات!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما عليك سوى العثور على كيفية القيام بذلك :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل يمكنك مشاركة الكود المعدل من فضلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub InsertPictures () 'تحديث 20140513 Dim PicList () كتنسيق صورة خافت متغير مثل String Dim Rng كنطاق خافت شكل كشكل عند الخطأ ، استئناف PicList التالي = Application.GetOpenFilename (PicFormat ، MultiSelect: = True) xColIndex = Application.ActiveCell.Column If IsArray (PicList) ثم xRowIndex = Application.ActiveCell.Row لـ lLoop = LBound (PicList) إلى UBound (PicList) اضبط Rng = الخلايا (xRowIndex، xColIndex) اضبط sShape = ActiveSheet.Shapes.AddPicture (PicLso (lueFoop)، ، Rng.Left، Rng.Top، Rng.Width، Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك مساعدتي في تعديل الرمز لإدراج العمود والصف المدمجين. Sub InsertPictures () 'Update 20140513 Dim PicList () كمتغير خافت PicFormat مثل String Dim Rng كنطاق خافت شكل كشكل عند الخطأ ، استئناف PicList التالي = Application.Get OpenFilename (Pi cFormat ، MultiSelect: = True) xColIndex = Application.ActiveCell. العمود If IsArray (PicList) ثم xRowIndex = Application.Act iveCell.Row لـ lLoop = LBound (PicList) إلى UBound (PicList) اضبط Rng = الخلايا (xRowIndex، xColIndex) اضبط sShape = ActiveSheet.Sha pes.AddPicture (loop) ، msoFalse، msoCTrue، Rng.Left، Rng.Top، Rng.Width، Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حدد الخلايا وقم بتغيير حجمها حسب العرض والارتفاع حسب احتياجاتك .. إذا كان لديك عشر صور حدد عشر خلايا أو أكثر حدد المزيد .. !! ثم اضغط على Alt + F11 ثم انقر على INSERT ثم انقر فوق MODULE ثم الصق الكود التالي كما هو .. Sub InsertPictures () 'Update 20140513 Dim PicList () كمتغير خافت PicFormat مثل String Dim Rng كنطاق خافت شكل كشكل على خطأ ، استأنف التالي PicList = Application.GetOpenFilename (PicFormat ، MultiSelect: = True) xColIndex = Application.ActiveCell.Column If IsArray (PicList) ثم xRowIndex = Application.ActiveCell.Row For lLoop = LBound (PicList) To UBound (PicList) xRowIndex، xColIndex) مجموعة sShape = ActiveSheet.Shapes.AddPicture (PicList (lLoop)، msoFalse، msoCTrue، Rng.Left، Rng.Top، Rng.Width، Rng.Height) xRowIndex = xRowIndex + 1 Next End If فوق الكود اضغط F5 .. ثم حدد الملفات من الكمبيوتر أينما كانت. حسب حاجة UR. ثم إذا لم تحفظ كتاب العمل ، فسيطلب منك حفظه. إذا قمت بحفظه بالفعل. إذن UR JOB هو الأمل في أن هذا يساعد .. علي .. !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا ، إنه يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا برنامج EXcel Masters ، لدي ورقتي إكسل. واحدة بها أكثر من مائة صورة ووصف للصورة في الخلية التالية لها. ربما تركت الورقة الأخرى بعد التحديد تحتوي على 2 وصفًا لها. كيف يمكنني نقل الصور إلى هذه الورقة حسب اختياري. شكرا ال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أو تستخدم صورة xls مباشرة. باستخدام وظيفة Excel الإضافية هذه ، يمكنك إدراج عدد غير محدود من الصور في خلية Excel ، أو كتعليق. يقوم أيضًا بتغيير حجم الصور الخاصة بك. ومن الممكن طلب ورقة Excel وتصفيتها ، بما في ذلك الصور!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا مستخدم Mac وبمجرد نسخ الرمز إلى الوحدة الجديدة وتشغيله ، لم يحدث شيء. هل هناك شيء يجب أن أفعله في نظام Mac لتشغيل كود VBA؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] أو يمكنك استخدام صورة xls مباشرة. باستخدام وظيفة Excel الإضافية هذه ، يمكنك إدراج عدد غير محدود من الصور في خلية Excel ، أو كتعليق. يقوم أيضًا بتغيير حجم الصور الخاصة بك. ومن الممكن طلب ورقة Excel وتصفيتها ، بما في ذلك الصور!بواسطة ارمين[/ quote] [اقتباس] التعليمات بالعنوان: إدراج صور متعددة في Excel مع رمز VBA هو ببساطة رائع وسريع وفعال !!! هذا بديل جيد لشراء المكونات الإضافية وتثبيتها. هذا أول تعليقي على الإنترنت !! مجد!بقلم راهول جوبتا[/ quote] لقد جربت هذا ويبدو أنه يعمل بشكل جيد - لكن لا يمكنك طلب أو تصفية قائمة Excel بما في ذلك الصور. كما أن الصور لا يتم تحجيمها بشكل متناسب. لذا اشتريت image-xls - تكلفته قليلاً ، لكن هل كل ما أحتاجه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا! هل هناك أي سبب لعدم عمل "Sub InsertPictures ()" في Excel 2003؟ لقد قمت بالفعل بإضافة المرجع إلى Microsoft.Scripting.Runtime شكرًا مقدمًا Gilberto
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انها مفيدة جدا لي. انه عمل جميل جدا ....... شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد جربت الكود الموجود في جدول البيانات الخاص بي وعمل بشكل مثالي. حتى أحاول أن أفعل التصفية. اكتشف أن الصورة الأخيرة ستظهر دائمًا في نتيجة التصفية. أي شخص قادر على المساعدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدام برنامج VBA أدناه غير قادر على إدراج الصورة في خلية مدمجة ، Sub InsertPictures () تحديث 20140513 Dim PicList () كتنسيق صورة خافت متغير مثل String Dim Rng كنطاق خافت شكل كشكل على خطأ ، استئناف التالي PicList = Application.Get OpenFilename (Pi cFormat ، MultiSelect: = True) xColIndex = Application.ActiveCell.Column If IsArray (PicList) ثم xRowIndex = Application.Act iveCell.Row لـ lLoop = LBound (PicList) إلى UBound (PicList) اضبط Rng = الخلايا (xRowIpendex) = ActiveSheet.Sha pes.AddPicture (PicList (lLoop)، msoFalse، msoCTrue، Rng.Left، Rng.Top، Rng.Width، Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub يرجى إعلامي بتعديل VBA .
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، هذا رائع! لقد كنت أتابع الدروس الخاصة بك لبعض الوقت الآن. ما كنت آمل أن تتمكن من مساعدتي به هو ، كيف يمكنني تغيير هذا من لصق الصور في عمود إلى عبر صف؟ وكيف يمكنني إضافة "اسم الملف الكامل (مثل example_image.jpg)" إلى الصف الذي فوقه. الصف 'أ': "Filename.jpg" الصف 'B': "صورة مصغرة للصورة" شكرًا !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد قمت بإدراج الصور باستخدام رمز VBE الخاص بي. والآن حاولت مشاركتها مع الآخرين ، للأسف لم يتمكنوا من رؤية الصور ..... سأكون ممتنًا إذا تمكن أي شخص من إخباري بما أنا في عداد المفقودين. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل تقريبًا لاحتياجاتي. لدي 200 صورة ، كل صورة يجب أن توضع على الورقة الخاصة بها. كيف أفعل ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تعديل التعليمات البرمجية التالية بحيث يتم ملء الصور في نطاق محدد من الخلايا عبر أعمدة وصفوف متعددة بدلاً من الخلايا المتتالية في صفوف متتالية في نفس العمود؟ Sub InsertPictures () 'Update 20140513 Dim PicList () كمتغير خافت PicFormat مثل String Dim Rng كنطاق خافت شكل كشكل عند الخطأ ، استئناف PicList التالي = Application.Get OpenFilename (Pi cFormat ، MultiSelect: = True) xColIndex = Application.ActiveCell. العمود If IsArray (PicList) ثم xRowIndex = Application.Act iveCell.Row لـ lLoop = LBound (PicList) إلى UBound (PicList) اضبط Rng = الخلايا (xRowIndex، xColIndex) اضبط sShape = ActiveSheet.Sha pes.AddPicture (loop) ، msoFalse، msoCTrue، Rng.Left، Rng.Top، Rng.Width، Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Alguem conseguiu o codigo para a pergunta dele؟ estou precisando também!
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL