Ten kod traktuje nawet komórkę inną niż ścieżka obrazu jako ścieżkę obrazu i zgłasza błąd polegający na tym, że nie można zaimportować nazwy pliku „tekst w tej komórce”
To działało dobrze przed kilkoma dniami, jakaś wskazówka?

Sub WstawPicFromFile()
Dim xRg jako zakres
Przyciemnij xCell jako zakres
Dim xVal jako ciąg
On Error Resume Next
Set xRg = Application.InputBox("Proszę wybrać komórki ścieżki pliku:", "KuTools for Excel", Selection.Address, , , , , 8)
Jeśli xRg jest niczym, wyjdź z Sub
Application.ScreenUpdating = Fałsz
Dla każdego xCell w xRg
xWartość = xKomórka.Wartość
Jeśli xVal <> "" Wtedy
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
xKomórka.Wysokość
End If
Następna
Application.ScreenUpdating = True
End Sub