This code treats even non image path cell as image path and props up error that it could not import file name " text in that cell" This used to work well before some days, any clue? Sub InsertPicFromFile() Dim xRg As Range Dim xCell As Range Dim xVal As String On Error Resume Next Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each xCell In xRg xVal = xCell.Value If xVal <> "" Then ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _ xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _ xCell.Height End If Next Application.ScreenUpdating = True End Sub

جديد

خطأ في رمز InsertPicFromFile

كوتولس ل إكسيل

عرقية

السبت، 23 أبريل 2022

0 الردود

1.9 ألف زيارة

الأصوات

فك

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

إدراج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 = ترو
نهاية الفرعية

لا توجد ردود لهذا المنصب حتى الآن.

يرجى تسجيل الدخول إلى مرحلة ما بعد الرد

ستحتاج إلى تسجيل الدخول لتتمكن من نشر الرد. تسجيل الدخول باستخدام النموذج على اليمين أو تسجيل حساب إذا كنت جديدا هنا. سجل هنا "