السبت، 23 أبريل 2022
  0 الردود
  1.7 ألف زيارة
0
الأصوات
فك
يعامل هذا الرمز حتى الخلية غير مسار الصورة كمسار صورة ويدعم الخطأ المتمثل في عدم تمكنه من استيراد اسم الملف "نص في تلك الخلية"
كان هذا يعمل بشكل جيد قبل بضعة أيام، أي دليل؟

إدراجPicFromFile الفرعي ()
خافت xRg كمدى
خافت xCell كمجموعة
خافت xVal كسلسلة
على خطأ استئناف التالي
Set xRg = Application.InputBox("الرجاء تحديد خلايا مسار الملف:"، "KuTools for Excel"، Selection.Address، , , , , 8)
إذا كان xRg لا شيء ، فاخرج من Sub
Application.ScreenUpdating = خطأ
لكل xCell في xRg
xVal = xCell.Value
إذا xVal <> "" إذن
ActiveSheet.Shapes.AddPicture xCell.Value، msoFalse، msoTrue، _
xCell.Offset(0, 1).يسار, xCell.Top, xCell.Height, _
xCell.Height
إنهاء حالة
التالى
Application.ScreenUpdating = ترو
نهاية الفرعية
لا توجد ردود لهذا المنصب حتى الآن.