كيف تقوم بإدراج نفس الصورة في أوراق عمل متعددة بسرعة؟
عادةً ، يمكننا إدراج صورة في ورقة العمل بسرعة باستخدام وظيفة الإدراج في Excel ، ولكن هل حاولت يومًا إدراج الصورة نفسها في جميع أوراق العمل في المصنف الخاص بك؟ في هذه المقالة ، سأقدم لك طريقة مفيدة لحل هذه الوظيفة.
أدخل نفس الصورة في جميع أوراق العمل الخاصة بالمصنف برمز VBA
أدخل نفس الصورة في جميع أوراق العمل الخاصة بالمصنف برمز VBA
يمكن أن يساعدك رمز VBA التالي على إدراج صورة في جميع أوراق العمل بسهولة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: أدخل نفس الصورة في جميع أوراق العمل:
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 من كل ورقة العمل مرة واحدة. انظر لقطة الشاشة:
ملاحظات: سيتم تعديل الصورة المدرجة لتتناسب مع حجم الخلية.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!