Цей код розглядає навіть клітинку, яка не є зображенням, як шлях до зображення, і виявляє помилку, що не вдалося імпортувати ім’я файлу «текст у цій клітинці».
Раніше це добре працювало за кілька днів, будь-яка підказка?

Sub InsertPicFromFile()
Dim xRg As Range
Dim xCell As Range
Dim xVal як рядок
On Error Resume Next
Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
Application.ScreenUpdating = Невірний
Для кожного xCell In xRg
xVal = xCell.Value
Якщо xVal <> "" Тоді
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
xCell.Висота
End If
МАЙБУТНІ
Application.ScreenUpdating = True
End Sub