نسخ أو تحميل صورة من الويب إلى الإكسيل

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

إخواني الكرام

 

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

الكود بهذا الشكل :

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
   With rngTarget.Parent
      .Pictures.Insert strShpUrl
      .Shapes(.Shapes.Count).Left = rngTarget.Left
      .Shapes(.Shapes.Count).Top = rngTarget.Top
   End With
End Sub
 
Sub Test()
'[A3] يقوم الكود بتحميل صورة إلى الخلية
    Call GetShapeFromWeb("http://www.officena.net/ib/public/style_images/master/logo.png", Sheet1.Range("A3"))
End Sub

يقوم الكود بلصق الصورة إلى النطاق المحدد (الخلية المحددة على سبيل المثال في المرفق هي الخلية A3)

يعتمد الكود على عنوان الصورة المراد إدراجها URL الخاص بالصورة ، ويمكنك الحصول عليه عن طريق الكليك يمين على الصورة ثم ستجد الأمر Copy Image Location أي نسخ مسار الصورة .. ويتم وضع المسار في الكود

:rol:

أترككم مع الملف المرفق ..

كان معكم أخوكم أبو البراء من معرض أوفيسنا للأعمال الفنية

دمتم بود

Copy Picture From Web To Excel.rar

[عبد العزيز البسكري]

بارك الله فيك و جزاك الله خيرا..لما تقدّمه من روائع .. أستاذنا القدير

[ياسر خليل أبو البراء]

الأخ الكريم عبد العزيز البسكري

مشكور على مرورك العطر وجزاك الله خير الجزاء على تشجيعك الدائم لي

تقبل تحياتي

[مختار حسين محمود]

بارك الله فيك و جازاك الله خيرا .. يا روح المنتدى  ويا  فاكهة المنتدى  

والله ألف ألف ألف كتر خيرك على ما تقدمه لإخواننا  جُعل فى ميزان حسناتك بإذن الله تعالى

[Yasser Fathi Albanna]

سلمت يمينك أخى الفاضل ياسر خليل

وسلمت من كل شر

[ياسر خليل أبو البراء]

أخي الحبيب مختار حسين

أخي الحبيب ياسر فتحي

بارك الله فيكما .. وجزاكما الله خيراً

[ياسر خليل أبو البراء]

نداء إلى الأستاذ محمد طاهر

كنت قد قمت بعمل تجميع لفهرس الموضوعات الخاصة بي ... ولكنه هناك روابط لا تعمل الآن فهل حدث تغير في مسار عناوين الموضوعات؟