نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إدراج الصورة نفسها في أوراق عمل متعددة بسرعة؟

عادةً ، يمكننا إدراج صورة في ورقة عمل بسرعة باستخدام الدالة Insert في Excel ، لكن ، هل حاولت إدراج الصورة نفسها في كافة أوراق العمل في المصنف الخاص بك؟ هذه المادة ، سأقدم لك طريقة مفيدة لحل هذه المهمة.

إدراج الصورة نفسها في كافة أوراق العمل من المصنف باستخدام رمز VBA


إدراج الصورة نفسها في كافة أوراق العمل من المصنف باستخدام رمز VBA


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

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

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

رمز VBA: إدراج الصورة نفسها في كافة أوراق العمل:

Sub InsertLogo()
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\DT168\Desktop\pic\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

ملاحظة:: في التعليمات البرمجية أعلاه، C:\Users\DT168\Desktop\pic\logo.png هو مسار واسم صورتك و A1 in Range("A1") هي الخلية التي تريد إدراج الصورة فيها ، يرجى تغييرها إلى صورتك الخاصة.

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

وثيقة إدراج صورة لجميع الأوراق 1

ملاحظة:: سيتم ضبط الصورة المدرجة لتناسب حجم الخلية.


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    user · 5 months ago
    How can you add the photo to all sheets and assign a macro to it without going into each sheet individually and clicking the photo and assigning it?
  • To post as a guest, your comment is unpublished.
    Axl_Grey · 6 months ago
    Hola, Se puede hacer que la imagen no sea de una ruta del equipo si no que sea del mismo libro?
  • To post as a guest, your comment is unpublished.
    rodrigo · 7 months ago
    tem como exceutar a macro para adicionar imagem fora da celula em uma localizaçao especifica?
  • To post as a guest, your comment is unpublished.
    rodrigo · 7 months ago
    preciso adiconar imagens nas planilhas que ficam sobre as celulas a1, b1 e c1. Tem um modo de fazer isso?