Deze code behandelt zelfs niet-afbeeldingspadcellen als afbeeldingspad en ondersteunt de fout dat het de bestandsnaam "tekst in die cel" niet kon importeren
Dit werkte vroeger goed voor enkele dagen, enig idee?

Sub InsertPicFromFile()
Dim xRg als bereik
Dim xCell als bereik
Dim xVal als tekenreeks
On Error Resume Next
Set xRg = Application.InputBox("Selecteer de cellen van het bestandspad:", "KuTools voor Excel", Selection.Address, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
Voor elke xCell In xRg
xWaarde = xCel.Waarde
Als xVal <> "" Dan
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Links, xCell.Top, xCell.Height, _
xCel.Hoogte
End If
Volgende
Application.ScreenUpdating = True
End Sub