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 الردود

0.9 ألف زيارة

الأصوات

فك

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

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

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

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

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