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

Sub InsertPicFromFile ()
خافت xRg كمدى
خافت xCell كمجموعة
خافت xVal كسلسلة
على خطأ استئناف التالي
تعيين 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) .Left، xCell.Top، xCell.Height، _
xCell ارتفاع
إنهاء حالة
التالى
Application.ScreenUpdating = ترو
نهاية الفرعية
لا توجد ردود لهذا المنصب حتى الآن.