كيفية جلب صور من اي موقع بمعادلة خفيفة image في اوفيس 365

[mmagedmemo]

فيديوووووو  جديددددد
في هذا الفيديو هانتعلم ازاي نجيب الصور اللي مرفوعة على موقع  شركتك اللي رافعاه على السيرفر 
بمعادلة في اوفيس 365 وكمان الصورة موش هاتكون صورة هاتكون قيمة وكمان تقدر تعمل فلاتر وتعمل معادلة البحث عن الصورة بطريقة بسيطة جدا جدا
https://youtu.be/7WU-Q7n-Y6w

[أبومروان]

جزاك الله خيراً

[محمد طاهر عرفه]

دالة image المتاحة فى اوفيس 365 دالة مفيدة  لادراج صور من مسار على الويب  ، شكرا جزيلا

هل سبق لاحد الأخوة  استخدامها مع ملفات مصدرها على الجهاز و ليس على الويب ؟

[محمد طاهر عرفه]

لم اجد طريقة مباشرة لاستخدام دالة image لادراج ملفات فى ملف اكسيل

فاستخدمت الكود التالي لحين ورود أفكار اخرى من الأخوة  لادراج الصورة من المسار المحدد  بالكود ، بناء على اسم ملف الصورة الموجود فى الخانة على يسار الخانة المراد ادراج الصورة بها

ولتشغيله علم على الخلايا المراد ادراج الصورة بها فى عمود واحد  ـ على ان تكون اسماء ملفات الصورة فى العمود السابق له مباشرة ،ـ او عدل الكود اذا اردت غير ذلك

 

Sub InsertPicture3()

Dim StrPath As String
Dim StrFlename As String
Dim Filename As String
StrPath = "C:\Pics\"

For i = 1 To Selection.Count


StrFilename = ActiveCell.Offset(0, -1).Text
Filename = StrPath & StrFilename

Selection.InsertPictureInCell (Filename)
ActiveCell.Offset(1, 0).Activate

Next i

        
End Sub