كيفية تحويل عناوين URL للصور إلى صور فعلية في Excel؟
إذا كانت لديك قائمة بعناوين URL للصور في العمود A ، والآن ، فأنت تريد تنزيل الصور المقابلة من عناوين URL وعرضها في العمود المجاور B كما هو موضح في لقطة الشاشة اليسرى. في Excel ، كيف يمكنك استخراج الصور الفعلية من عناوين URL للصور بسرعة وسهولة؟
تحويل عناوين URL للصور إلى صور فعلية برمز VBA
قم بتحويل عناوين URL للصور إلى صور فعلية باستخدام Kutools for Excel
تحويل عناوين URL للصور إلى صور فعلية برمز VBA
يمكن أن يساعدك رمز VBA التالي في استخراج الصور الفعلية بسرعة من عناوين URL للصورة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: تحويل عناوين URL للصور إلى صور فعلية:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub
الملاحظات:
- 1. في الكود أعلاه ، A2: A5 هو نطاق الخلايا الذي يحتوي على عناوين URL التي تريد استخراج الصور منها ، يجب عليك تغيير مراجع الخلية حسب حاجتك.
- 2. باستخدام هذا الكود ، لا يمكنك تحديد حجم الصور المستخرجة حسب حاجتك.
- 3. يمكن للكود أعلاه فقط استخراج الصور الفعالة في الخلايا بجانب عمود عنوان URL الخاص بك ، ولا يمكنك تحديد خلية لإخراج الصور.
- 4. يجب أن يكون لديك بعض المعرفة الأساسية بالرمز ، في حالة فقد أي حرف أو عدم صحة أي حرف ، فلن يتم تنفيذ الكود بنجاح.
3. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، وتم استخراج جميع الصور المقابلة من عناوين URL للصورة إلى العمود المجاور مرة واحدة ، وسيتم وضع الصور في وسط الخلايا المحددة ، انظر لقطة الشاشة:
قم بتحويل عناوين URL للصور إلى صور فعلية باستخدام Kutools for Excel
إذا لم تكن على دراية برمز VBA أو تريد معالجة قيود الكود أعلاه ، كوتولس ل إكسيل's مسار نموذج إدراج الصور (URL) يمكن أن تساعدك الميزة على إدراج الصور المتجاوبة بسرعة استنادًا إلى عناوين URL أو مسار محدد في جهاز الكمبيوتر الخاص بك كما هو موضح أدناه لقطة الشاشة. انقر لتنزيل Kutools for Excel!
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس > إدراج > مسار نموذج إدراج الصور (URL)، في مربع الحوار المنبثق ، يرجى ضبط العمليات التالية ، انظر لقطات الشاشة:
2. ثم اضغط Ok الزر ، وسيتم استخراج الصور من عناوين URL ، انظر لقطة الشاشة:
انقر للتنزيل والإصدار التجريبي المجاني Kutools for Excel الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!