Acest cod tratează chiar și celula care nu este calea imaginii ca cale a imaginii și afișează eroarea că nu a putut importa numele fișierului „text în acea celulă”
Asta obișnuia să funcționeze cu bine înainte de câteva zile, vreo idee?

Sub InsertPicFromFile()
Dim xRg As Range
Dim xCell As Range
Dim xVal As String
La data de eroare CV următoare
Set xRg = Application.InputBox(„Vă rugăm să selectați celulele căii fișierului:”, „KuTools pentru Excel”, Selection.Address, , , , , 8)
Dacă xRg nu este nimic, ieșiți din sub
Application.ScreenUpdating = Fals
Pentru fiecare xCell în xRg
xVal = xCell.Value
Dacă xVal <> "" Atunci
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
xCell.Inaltime
Final, dacă
Pagina Următoare →
Application.ScreenUpdating = Adevărat
End Sub