اضافة خاصية لادراج صورة

[ابو مارفن]

السلام عليكم شلونكم بدون زحمة اريد ان اضيف خاصيه  الى الصوره المدرجة من خلال الكود كما هو موضح بالصورة المرفقة مع جزيل الشكر والتقدير 

Private Sub Comm()

Dim ws As Worksheet
For Each ws In Worksheets
ws.Pictures.Insert ("D:\عنوان.jpg")
Next
End Sub

ادراج صورة.xlsm.xlsx

[Foksh]

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

يظهر الخطأ التالي عند محاولة فتح ملفك المرفق في الاصدار 2019

 

وفي الإصدار 2010