ข้อบกพร่องในโค้ด InsertPicFromFile

รหัสนี้ถือว่าแม้แต่เซลล์ที่ไม่ใช่เส้นทางของรูปภาพเป็นเส้นทางของรูปภาพและทำให้เกิดข้อผิดพลาดที่ไม่สามารถนำเข้าชื่อไฟล์ " ข้อความในเซลล์นั้น"
สิ่งนี้เคยใช้ได้ดีมาก่อนบางวัน เบาะแสอะไรไหม?

แทรกย่อยPicFromFile()
Dim xRg เป็นช่วง
Dim xCell เป็นช่วง
Dim xVal เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
Set xRg = Application.InputBox("โปรดเลือกเซลล์พาธของไฟล์:", "KuTools for Excel", Selection.Address, , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
สำหรับแต่ละ xCell ใน xRg
xVal = xCell.ค่า
ถ้า xVal <> "" แล้ว
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).ซ้าย, xCell.Top, xCell.Height, _
xCell.ความสูง
End If
ถัดไป
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด